X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Flsuba_ldrop.ma;h=863ad74d715778799753f57fa4bc4826ad2ab4c6;hb=ebc33b6d5b68400bc8411973ed4c9ed50d0c52a6;hp=b32e6ba93913fc6902d836e4cc250c9414a86363;hpb=65008df95049eb835941ffea1aa682c9253c4c2b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_ldrop.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_ldrop.ma index b32e6ba93..863ad74d7 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_ldrop.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_ldrop.ma @@ -30,7 +30,7 @@ lemma lsuba_ldrop_O1_conf: ∀L1,L2. L1 ⁝⊑ L2 → ∀K1,e. ⇩[0, e] L1 ≡ <(ldrop_inv_O2 … H) in HL12; -H /3 width=3/ | elim (IHL12 … HLK1) -L1 /3 width=3/ ] -| #L1 #L2 #V #W #A #HV #HW #_ #IHL12 #K1 #e #H +| #L1 #L2 #W #V #A #HV #HW #_ #IHL12 #K1 #e #H elim (ldrop_inv_O1_pair1 … H) -H * #He #HLK1 [ destruct elim (IHL12 L1 0) -IHL12 // #X #HL12 #H @@ -52,7 +52,7 @@ lemma lsuba_ldrop_O1_trans: ∀L1,L2. L1 ⁝⊑ L2 → ∀K2,e. ⇩[0, e] L2 ≡ <(ldrop_inv_O2 … H) in HL12; -H /3 width=3/ | elim (IHL12 … HLK2) -L2 /3 width=3/ ] -| #L1 #L2 #V #W #A #HV #HW #_ #IHL12 #K2 #e #H +| #L1 #L2 #W #V #A #HV #HW #_ #IHL12 #K2 #e #H elim (ldrop_inv_O1_pair1 … H) -H * #He #HLK2 [ destruct elim (IHL12 L2 0) -IHL12 // #X #HL12 #H