Adds transformation of generic monotape machines into machines using a binary

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / unfold / sstas_aaa.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/unfold/sstas_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/unfold/sstas_aaa.ma
index 36951ce083cc0c41f15897ffe5ba7b10533debe3..ff3c48fe8405af101d19562f7685a111b29f2689 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/unfold/sstas_aaa.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/unfold/sstas_aaa.ma
@@ -19,7 +19,7 @@ include "basic_2/unfold/sstas.ma".
 
 (* Properties on atomic arity assignment for terms **************************)
 
-lemma sstas_aaa: ∀h,g,L,T,U. ⦃h, L⦄ ⊢ T •*[g] U →
-                 ∀A. L ⊢ T ⁝ A → L ⊢ U ⁝ A.
-#h #g #L #T #U #H @(sstas_ind_dx … H) -T // /3 width=6/
+lemma sstas_aaa: ∀h,g,G,L,T,U. ⦃G, L⦄ ⊢ T •*[h, g] U →
+                 ∀A. ⦃G, L⦄ ⊢ T ⁝ A → ⦃G, L⦄ ⊢ U ⁝ A.
+#h #g #G #L #T #U #H @(sstas_ind_dx … H) -T // /3 width=6/
 qed.