]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/fsb_fpbg.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / fsb_fpbg.ma
index 18902f2cc0ca5484c6f991d0b827a09b6e8ac1b2..afe69742678d7275ee52ac0f415c66387ced770b 100644 (file)
@@ -23,7 +23,7 @@ include "basic_2/rt_computation/fsb_feqg.ma".
 lemma fsb_fpbs_trans:
       ∀G1,L1,T1. ≥𝐒 ❪G1,L1,T1❫ →
       ∀G2,L2,T2. ❪G1,L1,T1❫ ≥ ❪G2,L2,T2❫ → ≥𝐒 ❪G2,L2,T2❫.
-#G1 #L1 #T1 #H @(fsb_ind_alt … H) -G1 -L1 -T1
+#G1 #L1 #T1 #H @(fsb_ind … H) -G1 -L1 -T1
 #G1 #L1 #T1 #H1 #IH #G2 #L2 #T2 #H12
 elim (fpbs_inv_fpbg … H12) -H12
 [ -IH /2 width=9 by fsb_feqg_trans/
@@ -56,7 +56,7 @@ lemma fsb_ind_fpbg_fpbs (Q:relation3 …):
       ) →
       ∀G1,L1,T1. ≥𝐒 ❪G1,L1,T1❫ →
       ∀G2,L2,T2. ❪G1,L1,T1❫ ≥ ❪G2,L2,T2❫ → Q G2 L2 T2.
-#Q #IH1 #G1 #L1 #T1 #H @(fsb_ind_alt … H) -G1 -L1 -T1
+#Q #IH1 #G1 #L1 #T1 #H @(fsb_ind … H) -G1 -L1 -T1
 #G1 #L1 #T1 #H1 #IH #G2 #L2 #T2 #H12
 @IH1 -IH1
 [ -IH /2 width=5 by fsb_fpbs_trans/