]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambda_delta/Basic_2/reducibility/ltpr_ldrop.ma
- support for candidates of reducibility continues ...
[helm.git] / matita / matita / contribs / lambda_delta / Basic_2 / reducibility / ltpr_ldrop.ma
index 38e7858dc28672a8530ecb93b5d3f79c9f99dc0d..08ac62aafa2f7f3182817bc9c31c96caf463d5b6 100644 (file)
@@ -18,8 +18,8 @@ include "Basic_2/reducibility/ltpr.ma".
 (* CONTEXT-FREE PARALLEL REDUCTION ON LOCAL ENVIRONMENTS ********************)
 
 (* Basic_1: was: wcpr0_ldrop *)
-lemma ltpr_ldrop_conf: â\88\80L1,K1,d,e. â\86\93[d, e] L1 â\89¡ K1 â\86\92 â\88\80L2. L1 â\87\92 L2 â\86\92
-                       â\88\83â\88\83K2. â\86\93[d, e] L2 â\89¡ K2 & K1 â\87\92 K2.
+lemma ltpr_ldrop_conf: â\88\80L1,K1,d,e. â\87\93[d, e] L1 â\89¡ K1 â\86\92 â\88\80L2. L1 â\87\92 L2 â\86\92
+                       â\88\83â\88\83K2. â\87\93[d, e] L2 â\89¡ K2 & K1 â\87\92 K2.
 #L1 #K1 #d #e #H elim H -L1 -K1 -d -e
 [ #d #e #X #H >(ltpr_inv_atom1 … H) -H /2 width=3/
 | #K1 #I #V1 #X #H
@@ -35,8 +35,8 @@ lemma ltpr_ldrop_conf: ∀L1,K1,d,e. ↓[d, e] L1 ≡ K1 → ∀L2. L1 ⇒ L2 
 qed.
 
 (* Basic_1: was: wcpr0_ldrop_back *)
-lemma ltpr_ldrop_trans: â\88\80L1,K1,d,e. â\86\93[d, e] L1 â\89¡ K1 â\86\92 â\88\80K2. K1 â\87\92 K2 â\86\92
-                        â\88\83â\88\83L2. â\86\93[d, e] L2 â\89¡ K2 & L1 â\87\92 L2.
+lemma ltpr_ldrop_trans: â\88\80L1,K1,d,e. â\87\93[d, e] L1 â\89¡ K1 â\86\92 â\88\80K2. K1 â\87\92 K2 â\86\92
+                        â\88\83â\88\83L2. â\87\93[d, e] L2 â\89¡ K2 & L1 â\87\92 L2.
 #L1 #K1 #d #e #H elim H -L1 -K1 -d -e
 [ #d #e #X #H >(ltpr_inv_atom1 … H) -H /2 width=3/
 | #K1 #I #V1 #X #H