X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Flprs_aaa.ma;h=306766f42b0be6be2643229133e6c78620ce5ffc;hb=ca7327c20c6031829fade8bb84a3a1bb66113f54;hp=f88fb323916ac571a0a3359e9017d4925731233a;hpb=ec261374a2990bebeded039a64c0be0795ad9e93;p=helm.git

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 f88fb3239..306766f42 100644
--- 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-.