for f1, f2 being Function of atomic_LTL, the BasicAssign of (Inf_seqModel (AtomicFamily,AtomicBasicAsgn)) st ( for a being set st a in atomic_LTL holds
f1 . a = AtomicAsgn a ) & ( for a being set st a in atomic_LTL holds
f2 . a = AtomicAsgn a ) holds
f1 = f2
proof
let f1, f2 be Function of atomic_LTL, the BasicAssign of (Inf_seqModel (AtomicFamily,AtomicBasicAsgn)); :: thesis: ( ( for a being set st a in atomic_LTL holds
f1 . a = AtomicAsgn a ) & ( for a being set st a in atomic_LTL holds
f2 . a = AtomicAsgn a ) implies f1 = f2 )

assume that
A3: for a being set st a in atomic_LTL holds
f1 . a = AtomicAsgn a and
A4: for a being set st a in atomic_LTL holds
f2 . a = AtomicAsgn a ; :: thesis: f1 = f2
for a being object st a in atomic_LTL holds
f1 . a = f2 . a
proof
let a be object ; :: thesis: ( a in atomic_LTL implies f1 . a = f2 . a )
assume A5: a in atomic_LTL ; :: thesis: f1 . a = f2 . a
f1 . a = AtomicAsgn a by A3, A5;
hence f1 . a = f2 . a by A4, A5; :: thesis: verum
end;
hence f1 = f2 by FUNCT_2:12; :: thesis: verum
end;
hence for b1, b2 being Function of atomic_LTL, the BasicAssign of (Inf_seqModel (AtomicFamily,AtomicBasicAsgn)) st ( for a being set st a in atomic_LTL holds
b1 . a = AtomicAsgn a ) & ( for a being set st a in atomic_LTL holds
b2 . a = AtomicAsgn a ) holds
b1 = b2 ; :: thesis: verum