- basic_2: induction for preservation results now uses supclosure

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / dynamic / snv_lift.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_lift.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_lift.ma
index 966760b80ea4e616c296806c8e3d26fe08838d29..0a1feae918756b4cb9fbddfa298f9090cc838af8 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_lift.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_lift.ma
@@ -86,11 +86,13 @@ lemma snv_fsup_conf: ∀h,g,L1,L2,T1,T2. ⦃L1, T1⦄ ⊃ ⦃L2, T2⦄ →
 [ #I1 #L1 #V1 #H
   elim (snv_inv_lref … H) -H #I2 #L2 #V2 #H #HV2
   lapply (ldrop_inv_refl … H) -H #H destruct //
-|2,3: #a #I #L1 #V1 #T1 #H elim (snv_inv_bind … H) -H //
-|4,5: * #L1 #V1 #T1 #H
+|2: *
+|5: /3 width=7 by snv_inv_lift/
+]
+[1,3: #a #I #L1 #V1 #T1 #H elim (snv_inv_bind … H) -H //
+|2,4: * #L1 #V1 #T1 #H
   [1,3: elim (snv_inv_appl … H) -H //
   |2,4: elim (snv_inv_cast … H) -H //
   ]
-| /3 width=7 by snv_inv_lift/
 ]
 qed-.