X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffsb_feqg.ma;h=73ae6efed446ccb55c682eae1524a4cc57192da8;hp=f2a7640d1174ef3fb68ce5b39fdc3d7725cae7e1;hb=bc27cc1925469ddcd2bc3cd4036a6ea8067c5da1;hpb=2b7797235d69608e4221b287480949961aaa3948 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fsb_feqg.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fsb_feqg.ma index f2a7640d1..73ae6efed 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fsb_feqg.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fsb_feqg.ma @@ -24,7 +24,7 @@ lemma fsb_feqg_trans (S): reflexive … S → symmetric … S → Transitive … S → ∀G1,L1,T1. ≥𝐒 ❪G1,L1,T1❫ → ∀G2,L2,T2. ❪G1,L1,T1❫ ≛[S] ❪G2,L2,T2❫ → ≥𝐒 ❪G2,L2,T2❫. -#S #H1S #H2S #H3S #G1 #L1 #T1 #H @(fsb_ind_alt … H) -G1 -L1 -T1 +#S #H1S #H2S #H3S #G1 #L1 #T1 #H @(fsb_ind … H) -G1 -L1 -T1 #G1 #L1 #T1 #_ #IH #G2 #L2 #T2 #H12 @fsb_intro #G #L #T #H2 elim (feqg_fpbc_trans … H12 … H2) -G2 -L2 -T2