X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffsb_feqg.ma;h=808ee3bf1cd618f38d170e3824540b51c82e1f86;hb=80ecd5486c6013f6c297173f41432fd1d93814ef;hp=73ae6efed446ccb55c682eae1524a4cc57192da8;hpb=bc27cc1925469ddcd2bc3cd4036a6ea8067c5da1;p=helm.git 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 73ae6efed..808ee3bf1 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 @@ -22,8 +22,8 @@ include "basic_2/rt_computation/fsb.ma". 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❫. + ∀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 … H) -G1 -L1 -T1 #G1 #L1 #T1 #_ #IH #G2 #L2 #T2 #H12 @fsb_intro #G #L #T #H2