partial commit: just the components before "static" ...

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / reduction / cpr_cir.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr_cir.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr_cir.ma
index ee49679b71eac5148a86c5d9e12bcfcfa1dcb358..a54e9c420ac33974a822de1cf7908c53a08b584f 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr_cir.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr_cir.ma
@@ -19,7 +19,7 @@ include "basic_2/reduction/cpr.ma".
 
 (* Advanced forward lemmas on context-sensitive irreducible terms ***********)
 
-lemma cpr_fwd_cir: ∀L,T1,T2. L ⊢ T1 ➡ T2 → L ⊢ 𝐈⦃T1⦄ → T2 = T1.
+lemma cpr_fwd_cir: ∀L,T1,T2. ⦃G, L⦄ ⊢ T1 ➡ T2 → ⦃G, L⦄ ⊢ 𝐈⦃T1⦄ → T2 = T1.
 #L #T1 #T2 #H elim H -L -T1 -T2
 [ //
 | #L #K #V1 #V2 #W2 #i #HLK #_ #HVW2 #IHV12 #H