X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpms.ma;h=d422aaf2221049b8fa841af761031b403f003408;hp=2f7d1f449b826168cc3ec6c31f53048f22657732;hb=86861e6f031df66824a381527dfe847029ff72bc;hpb=7e6fea0332e132a8cb89c689ba68c5e884c4354c

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms.ma
index 2f7d1f449..d422aaf22 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms.ma
@@ -144,7 +144,7 @@ lemma cprs_refl: ∀h,G,L. reflexive … (cpms h G L 0).
 lemma cpms_sort (h) (G) (L) (n):
                 ∀s. ⦃G,L⦄ ⊢ ⋆s ➡*[n,h] ⋆((next h)^n s).
 #h #G #L #n elim n -n [ // ]
-#n #IH #s <plus_SO
+#n #IH #s <plus_SO_dx
 /3 width=3 by cpms_step_dx, cpm_sort/
 qed.