(* *)
(**************************************************************************)
-include "ground_2/list.ma".
-include "basic_2/notation/functions/snapplv_2.ma".
+include "ground_2/lib/list.ma".
+include "basic_2/notation/functions/snapplvector_2.ma".
include "basic_2/grammar/term_simple.ma".
(* TERMS ********************************************************************)
-let rec applv Vs T on Vs ≝
+rec definition applv Vs T on Vs ≝
match Vs with
[ nil ⇒ T
| cons hd tl ⇒ ⓐhd. (applv tl T)
].
-interpretation "application o vevtor (term)"
- 'SnApplV Vs T = (applv Vs T).
+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 ***************************************)