let s be Element of F1(); :: thesis: for t being Element of F2() st P1[s,t] holds
P2[F3(s,t)]

let t be Element of F2(); :: thesis: ( P1[s,t] implies P2[F3(s,t)] )
assume P1[s,t] ; :: thesis: P2[F3(s,t)]
then F3(s,t) in { F3(s1,t1) where s1 is Element of F1(), t1 is Element of F2() : P1[s1,t1] } ;
hence P2[F3(s,t)] by A1; :: thesis: verum