updating the structures for sorts

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_transition / cpm_tdeq.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma
index b99c4309c47dcfb56448a9df3e727f69110c1112..7f05e3b1c0e1c4ce84631abb0c8ffc4f8e447be2 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma
@@ -32,7 +32,7 @@ qed-.
 lemma cpm_tdeq_inv_atom_sn (n) (h) (I) (G) (L):
                            ∀X. ⦃G,L⦄ ⊢ ⓪{I} ➡[n,h] X → ⓪{I} ≛ X →
                            ∨∨ ∧∧ X = ⓪{I} & n = 0
-                            | ∃∃s. X = ⋆(next h s) & I = Sort s & n = 1.
+                            | ∃∃s. X = ⋆(⫯[h]s) & I = Sort s & n = 1.
 #n #h * #s #G #L #X #H1 #H2
 [ elim (cpm_inv_sort1 … H1) -H1
   cases n -n [| #n ] #H #Hn destruct -H2