let S be non empty set ; :: thesis: for R being total Relation of S,S
for BASSIGN being non empty Subset of (ModelSP S)
for f, g1, g2 being Assign of (CTLModel R,BASSIGN) st ( for s being Element of S st s |= g1 holds
s |= g2 ) holds
for s being Element of S st s |= Fax f,g1 holds
s |= Fax f,g2

let R be total Relation of S,S; :: thesis: for BASSIGN being non empty Subset of (ModelSP S)
for f, g1, g2 being Assign of (CTLModel R,BASSIGN) st ( for s being Element of S st s |= g1 holds
s |= g2 ) holds
for s being Element of S st s |= Fax f,g1 holds
s |= Fax f,g2

let BASSIGN be non empty Subset of (ModelSP S); :: thesis: for f, g1, g2 being Assign of (CTLModel R,BASSIGN) st ( for s being Element of S st s |= g1 holds
s |= g2 ) holds
for s being Element of S st s |= Fax f,g1 holds
s |= Fax f,g2

let f, g1, g2 be Assign of (CTLModel R,BASSIGN); :: thesis: ( ( for s being Element of S st s |= g1 holds
s |= g2 ) implies for s being Element of S st s |= Fax f,g1 holds
s |= Fax f,g2 )

assume A1: for s being Element of S st s |= g1 holds
s |= g2 ; :: thesis: for s being Element of S st s |= Fax f,g1 holds
s |= Fax f,g2

let s be Element of S; :: thesis: ( s |= Fax f,g1 implies s |= Fax f,g2 )
assume s |= Fax f,g1 ; :: thesis: s |= Fax f,g2
then A2: ( s |= f & s |= EX g1 ) by Th13;
then consider pai being inf_path of R such that
A3: pai . 0 = s and
A4: pai . 1 |= g1 by Th14;
pai . 1 |= g2 by A1, A4;
then s |= EX g2 by A3, Th14;
hence s |= Fax f,g2 by A2, Th13; :: thesis: verum