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 being Assign of (BASSModel (R,BASSIGN))
for X being Subset of S holds (TransEG f) . X = (SIGMA f) /\ (Pred (X,R))

let R be total Relation of S,S; :: thesis: for BASSIGN being non empty Subset of (ModelSP S)
for f being Assign of (BASSModel (R,BASSIGN))
for X being Subset of S holds (TransEG f) . X = (SIGMA f) /\ (Pred (X,R))

let BASSIGN be non empty Subset of (ModelSP S); :: thesis: for f being Assign of (BASSModel (R,BASSIGN))
for X being Subset of S holds (TransEG f) . X = (SIGMA f) /\ (Pred (X,R))

let f be Assign of (BASSModel (R,BASSIGN)); :: thesis: for X being Subset of S holds (TransEG f) . X = (SIGMA f) /\ (Pred (X,R))
let X be Subset of S; :: thesis: (TransEG f) . X = (SIGMA f) /\ (Pred (X,R))
set g = Tau (X,R,BASSIGN);
(TransEG f) . X = SigFaxTau (f,X,R,BASSIGN) by Def70
.= (SIGMA f) /\ (SIGMA (EX (Tau (X,R,BASSIGN)))) by Th33
.= (SIGMA f) /\ (Pred ((SIGMA (Tau (X,R,BASSIGN))),R)) by Th50 ;
hence (TransEG f) . X = (SIGMA f) /\ (Pred (X,R)) by Th32; :: thesis: verum