X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freduction%2Fcnr_cir.ma;h=480e359cb39fface464cecf107c480192f0fb437;hb=e258362c37ec6d9132ec57bd5e4987d148c10799;hp=50f30ab606fff7b7cd6fc1681181d2708b6ee2f5;hpb=ef49e0e7f5f298c299afdd3cbfdc2404ecb93879;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr_cir.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr_cir.ma
index 50f30ab60..480e359cb 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr_cir.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr_cir.ma
@@ -15,14 +15,14 @@
 include "basic_2/reduction/cpr_cir.ma".
 include "basic_2/reduction/cnr_crr.ma".
 
-(* CONTEXT-SENSITIVE NORMAL TERMS *******************************************)
+(* NORMAL TERMS FOR CONTEXT-SENSITIVE REDUCTION *****************************)
 
-(* Main properties on context-sensitive irreducible terms *******************)
+(* Main properties on irreducibility ****************************************)
 
-theorem cir_cnr: ∀L,T. L ⊢ 𝐈⦃T⦄ → L ⊢ 𝐍⦃T⦄.
-/2 width=3 by cpr_fwd_cir/ qed.
+theorem cir_cnr: ∀G,L,T. ⦃G, L⦄ ⊢ ➡ 𝐈⦃T⦄ → ⦃G, L⦄ ⊢ ➡ 𝐍⦃T⦄.
+/2 width=4 by cpr_fwd_cir/ qed.
 
-(* Main inversion lemmas on context-sensitive irreducible terms *************)
+(* Main inversion lemmas on irreducibility **********************************)
 
-theorem cnr_inv_cir: ∀L,T. L ⊢ 𝐍⦃T⦄ → L ⊢ 𝐈⦃T⦄.
-/2 width=4 by cnr_inv_crr/ qed-.
+theorem cnr_inv_cir: ∀G,L,T. ⦃G, L⦄ ⊢ ➡ 𝐍⦃T⦄ → ⦃G, L⦄ ⊢ ➡ 𝐈⦃T⦄.
+/2 width=5 by cnr_inv_crr/ qed-.