updating the structures for sorts

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

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma
index 9f135086438a01bcda7b478bf51dd8c14a4d0681..500929b1d35f82a6531189142ee6125c011a6698 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma
@@ -32,7 +32,7 @@ qed.
 (* Basic_2A1: was: cpx_inv_atom1 *)
 lemma cpx_inv_atom1_drops: ∀h,I,G,L,T2. ⦃G,L⦄ ⊢ ⓪{I} ⬈[h] T2 →
                            ∨∨ T2 = ⓪{I}
-                            | ∃∃s. T2 = ⋆(next h s) & I = Sort s
+                            | ∃∃s. T2 = ⋆(⫯[h]s) & I = Sort s
                             | ∃∃J,K,V,V2,i. ⬇*[i] L ≘ K.ⓑ{J}V & ⦃G,K⦄ ⊢ V ⬈[h] V2 &
                                             ⬆*[↑i] V2 ≘ T2 & I = LRef i.
 #h #I #G #L #T2 * #c #H elim (cpg_inv_atom1_drops … H) -H *