(* *)
(**************************************************************************)
-include "ground_2/lib/list.ma".
+include "ground/lib/list.ma".
include "static_2/notation/functions/snapplvector_2.ma".
include "static_2/syntax/term_simple.ma".
rec definition applv Vs T on Vs ≝
match Vs with
[ nil ⇒ T
- | cons hd tl ⇒ ⓐhd. (applv tl T)
+ | cons hd pr_tl ⇒ ⓐhd. (applv pr_tl T)
].
interpretation "application to vector (term)"
(* Properties with simple terms *********************************************)
-lemma applv_simple: â\88\80T,Vs. ð\9d\90\92â¦\83Tâ¦\84 â\86\92 ð\9d\90\92â¦\83â\92¶Vs.Tâ¦\84.
+lemma applv_simple: â\88\80T,Vs. ð\9d\90\92â\9dªTâ\9d« â\86\92 ð\9d\90\92â\9dªâ\92¶Vs.Tâ\9d«.
#T * //
qed.