parked material ...

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / grammar / term_vector.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/term_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/term_vector.ma
index 9575612e0d881fa9bd67a38534126178d7169c5a..192b78637feefe7e8624eda5b59f2e83dfd86344 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/grammar/term_vector.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/term_vector.ma
@@ -27,6 +27,14 @@ let rec applv Vs T on Vs ≝
 interpretation "application to vector (term)"
    'SnApplVector Vs T = (applv Vs T).
 
+(* Basic properties *********************************************************)
+
+lemma applv_nil: ∀T. Ⓐ ◊.T = T.
+// qed.
+
+lemma applv_cons: ∀V,Vs,T. Ⓐ V@Vs.T = ⓐV.ⒶVs.T.
+// qed.
+
 (* properties concerning simple terms ***************************************)
 
 lemma applv_simple: ∀T,Vs.  𝐒⦃T⦄ → 𝐒⦃ⒶVs.T⦄.