]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubv_drops.ma
still more additions and corrections for the article
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / dynamic / lsubv_drops.ma
index 06d302d57df17dbc634d0e0e7708f8d76023c75b..63b53ec7261be355d440b1101a5edd62862054f7 100644 (file)
@@ -22,9 +22,9 @@ include "basic_2/dynamic/lsubv.ma".
 (* Note: the premise đ”âŚƒf⦄ cannot be removed *)
 (* Basic_2A1: includes: lsubsv_drop_O1_conf *)
 lemma lsubv_drops_conf_isuni (a) (h) (G):
-                             âˆ€L1,L2. G âŠ˘ L1 âŤƒ![a,h] L2 â†’
-                             âˆ€b,f,K1. đ”âŚƒf⦄ â†’ âŹ‡*[b,f] L1 â‰˜ K1 â†’
-                             âˆƒâˆƒK2. G âŠ˘ K1 âŤƒ![a,h] K2 & âŹ‡*[b,f] L2 â‰˜ K2.
+      âˆ€L1,L2. G âŠ˘ L1 âŤƒ![a,h] L2 â†’
+      âˆ€b,f,K1. đ”âŚƒf⦄ â†’ âŹ‡*[b,f] L1 â‰˜ K1 â†’
+      âˆƒâˆƒK2. G âŠ˘ K1 âŤƒ![a,h] K2 & âŹ‡*[b,f] L2 â‰˜ K2.
 #a #h #G #L1 #L2 #H elim H -L1 -L2
 [ /2 width=3 by ex2_intro/
 | #I #L1 #L2 #HL12 #IH #b #f #K1 #Hf #H
@@ -47,9 +47,9 @@ qed-.
 (* Note: the premise đ”âŚƒf⦄ cannot be removed *)
 (* Basic_2A1: includes: lsubsv_drop_O1_trans *)
 lemma lsubv_drops_trans_isuni (a) (h) (G):
-                              âˆ€L1,L2. G âŠ˘ L1 âŤƒ![a,h] L2 â†’
-                              âˆ€b,f,K2. đ”âŚƒf⦄ â†’ âŹ‡*[b,f] L2 â‰˜ K2 â†’
-                              âˆƒâˆƒK1. G âŠ˘ K1 âŤƒ![a,h] K2 & âŹ‡*[b,f] L1 â‰˜ K1.
+      âˆ€L1,L2. G âŠ˘ L1 âŤƒ![a,h] L2 â†’
+      âˆ€b,f,K2. đ”âŚƒf⦄ â†’ âŹ‡*[b,f] L2 â‰˜ K2 â†’
+      âˆƒâˆƒK1. G âŠ˘ K1 âŤƒ![a,h] K2 & âŹ‡*[b,f] L1 â‰˜ K1.
 #a #h #G #L1 #L2 #H elim H -L1 -L2
 [ /2 width=3 by ex2_intro/
 | #I #L1 #L2 #HL12 #IH #b #f #K2 #Hf #H