(* *)
(**************************************************************************)
-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).