- first results on strongly normalizing local environments

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / computation / fpbr_fpbr.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/fpbr_fpbr.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/fpbr_fpbr.ma
index 786030aff7edf3cd44d6be033a860da025204c26..24d0634b55ea25feb81e5fd039c5cbe2c5b339c2 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/computation/fpbr_fpbr.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/computation/fpbr_fpbr.ma
@@ -15,9 +15,16 @@
 include "basic_2/computation/fpbg_fpbg.ma".
 include "basic_2/computation/fpbr.ma".
 
-(* RESTRICTED "BIG TREE" ORDER FOR CLOSURES *********************************)
+(* RESTRICTED "BIG TREE" PROPER PARALLEL COMPUTATION FOR CLOSURES ***********)
 
 (* Advanced forward lemmas **************************************************)
+
+lemma fpbr_fwd_fpbg: ∀h,g,G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ⊃≥[h, g] ⦃G2, L2, T2⦄ →
+                     ⦃G1, L1, T1⦄ >[h, g] ⦃G2, L2, T2⦄.
+#h #g #G1 #G2 #L1 #L2 #T1 #T2 #H elim (fpbr_inv_fqu_fpbs … H) -H
+/2 width=5 by fqu_fpbs_fpbg/
+qed-.
+
 lemma fpbr_fwd_fpbs: ∀h,g,G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ⊃≥[h, g] ⦃G2, L2, T2⦄ →
                      ⦃G1, L1, T1⦄ ≥[h, g] ⦃G2, L2, T2⦄.
 /3 width=5 by fpbr_fwd_fpbg, fpbg_fwd_fpbs/