(* *)
(**************************************************************************)
-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).
(* Basic properties *********************************************************)
-lemma applv_nil: â\88\80T. â\92¶â\92º.T = T.
+lemma applv_nil: â\88\80T. â\92¶â\93\94.T = T.
// qed.
lemma applv_cons: ∀V,Vs,T. ⒶV⨮Vs.T = ⓐV.Ⓐ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.