]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpt.ma
ground_2 released and permanently renamed as ground
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_transition / cpt.ma
index d1a733be663175cf2db5089e95bf3432ffc44df8..b3fb715e5be2bd7a9f6771648bf2ab3db0538de7 100644 (file)
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/xoa/ex_4_3.ma".
-include "ground_2/steps/rtc_ist_shift.ma".
-include "ground_2/steps/rtc_ist_plus.ma".
-include "ground_2/steps/rtc_ist_max.ma".
+include "ground/xoa/ex_4_3.ma".
+include "ground/steps/rtc_ist_shift.ma".
+include "ground/steps/rtc_ist_plus.ma".
+include "ground/steps/rtc_ist_max.ma".
 include "basic_2/notation/relations/pty_6.ma".
 include "basic_2/rt_transition/cpg.ma".
 
@@ -160,7 +160,7 @@ lemma cpt_inv_lref_sn (h) (n) (G) (L) (i):
 ]
 qed-.
 
-lemma cpt_inv_lref_sn_ctop (n) (h) (G) (i):
+lemma cpt_inv_lref_sn_ctop (h) (n) (G) (i):
       ∀X2. ❪G,⋆❫ ⊢ #i ⬆[h,n] X2 → ∧∧ X2 = #i & n = 0.
 #h #n #G * [| #i ] #X2 #H
 [ elim (cpt_inv_zero_sn … H) -H *