X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fequivalence%2Fscpes_cpcs.ma;h=aa22846fde6705d82383c6d92bb5b5bf1fa70458;hb=86a84e4116a8d388cb540bae6c60700f84a8f9f8;hp=a746490a39bde593cc4b1f3ee52091cb1c7eeeac;hpb=472cb969d9a01a6d24eabc39ba20d1dc6adf1b04;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/equivalence/scpes_cpcs.ma b/matita/matita/contribs/lambdadelta/basic_2/equivalence/scpes_cpcs.ma
index a746490a3..aa22846fd 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/equivalence/scpes_cpcs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/equivalence/scpes_cpcs.ma
@@ -21,13 +21,13 @@ include "basic_2/equivalence/scpes.ma".
 (* Inversion lemmas on parallel equivalence for terms ***********************)
 
 lemma scpes_inv_lstas_eq: ∀h,g,G,L,T1,T2,l1,l2. ⦃G, L⦄ ⊢ T1 •*⬌*[h, g, l1, l2] T2 →
-                         ∀U1. ⦃G, L⦄ ⊢ T1 •*[h, l1] U1 →
-                         ∀U2. ⦃G, L⦄ ⊢ T2 •*[h, l2] U2 → ⦃G, L⦄ ⊢ U1 ⬌* U2.
+                          ∀U1. ⦃G, L⦄ ⊢ T1 •*[h, l1] U1 →
+                          ∀U2. ⦃G, L⦄ ⊢ T2 •*[h, l2] U2 → ⦃G, L⦄ ⊢ U1 ⬌* U2.
 #h #g #G #L #T1 #T2 #l1 #l2 * #T #HT1 #HT2 #U1 #HTU1 #U2 #HTU2
 /3 width=8 by scpds_inv_lstas_eq, cprs_div/
 qed-.
 
-(* Properties on parallel equivalence for terms ***********************)
+(* Properties on parallel equivalence for terms *****************************)
 
 lemma cpcs_scpes: ∀h,g,G,L,T1,l11. ⦃G, L⦄ ⊢ T1 ▪[h, g] l11 →
                   ∀U1,l12. l12 ≤ l11 → ⦃G, L⦄ ⊢ T1 •*[h, l12] U1 →