- bug fix in the connection between global and restricted big-tree

[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..f0d79dc33b015402b8ec6c825f1009d9ffc25c63 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/computation/fpbr_fpbr.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/computation/fpbr_fpbr.ma
@@ -18,6 +18,13 @@ include "basic_2/computation/fpbr.ma".
 (* RESTRICTED "BIG TREE" ORDER 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/