update in basic_2 and apps_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / lprs_aaa.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_aaa.ma
index f88fb323916ac571a0a3359e9017d4925731233a..306766f42b0be6be2643229133e6c78620ce5ffc 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_aaa.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_aaa.ma
@@ -1,3 +1,24 @@
-lemma lprs_aaa_conf: ∀G,L1,T,A. ⦃G, L1⦄ ⊢ T ⁝ A →
-                     ∀L2. ⦃G, L1⦄ ⊢ ➡* L2 → ⦃G, L2⦄ ⊢ T ⁝ A.
-/3 width=5 by lprs_lpxs, lpxs_aaa_conf/ qed-.
+(**************************************************************************)
+(*       ___                                                              *)
+(*      ||M||                                                             *)
+(*      ||A||       A project by Andrea Asperti                           *)
+(*      ||T||                                                             *)
+(*      ||I||       Developers:                                           *)
+(*      ||T||         The HELM team.                                      *)
+(*      ||A||         http://helm.cs.unibo.it                             *)
+(*      \   /                                                             *)
+(*       \ /        This file is distributed under the terms of the       *)
+(*        v         GNU General Public License Version 2                  *)
+(*                                                                        *)
+(**************************************************************************)
+
+include "basic_2/rt_computation/lpxs_aaa.ma".
+include "basic_2/rt_computation/lprs_lpxs.ma".
+
+(* PARALLEL R-COMPUTATION FOR FULL LOCAL ENVIRONMENTS ***********************)
+
+(* Properties with atomic arity assignment for terms ************************)
+
+lemma lprs_aaa_conf (h) (G) (T):
+      Conf3 … (λL. aaa G L T) (lprs h 0 G).
+/3 width=5 by lprs_fwd_lpxs, lpxs_aaa_conf/ qed-.