(* *)
(**************************************************************************)
-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".
(* TERMS ********************************************************************)
rec definition applv Vs T on Vs ≝
- match Vs with
- [ nil ⇒ T
- | cons hd tl ⇒ ⓐhd. (applv tl T)
- ].
+match Vs with
+[ list_nil ⇒ T
+| list_cons hd tl ⇒ ⓐhd. (applv tl T)
+].
interpretation "application to vector (term)"
'SnApplVector Vs T = (applv Vs T).
(* 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.