(* *)
(**************************************************************************)
-include "Ground_2/list.ma".
-include "Basic_2/grammar/term.ma".
+include "ground_2/list.ma".
+include "basic_2/grammar/term_simple.ma".
(* TERMS ********************************************************************)
interpretation "application o vevtor (term)"
'SnApplV Vs T = (applv Vs T).
+
+(* properties concerning simple terms ***************************************)
+
+lemma applv_simple: ∀T,Vs. 𝐒[T] -> 𝐒[ⒶVs.T].
+#T * //
+qed.