-%% test _with_ the WHD on the apply argument
+(* test _with_ the WHD on the apply argument *)
alias id "not" = "cic:/Coq/Init/Logic/not.con".
alias id "False" = "cic:/Coq/Init/Logic/False.ind#xpointer(1/1)".
assumption.
qed.
-%% test _without_ the WHD on the apply argument
+(* test _without_ the WHD on the apply argument *)
alias symbol "eq" (instance 0) = "leibnitz's equality".
(* *)
(****************************************************************************)
-%% commento segato dal lexer
-
(* commento che va nell'ast, ma non viene contato
come step perche' non e' un executable
*)
alias symbol "eq" (instance 0) = "leibnitz's equality".
theorem a:0=0.
-%% commento segato dal lexer
(* nota *)
(**
-%% questo lo si vuole tenere anche dopo la hint
-hint.
+apply Prop.
*)
reflexivity.
(* commenti che non devono essere colorati perche'
non c'e' nulla di eseguibile dopo di loro
*)
qed.
-
-%% EOF
intros. auto.
qed.
+(*
theorem pippo: \forall m,n. (le (S m) (S n)) \to (le m n).
intros.
-lapply le_gen_S_x.
\ No newline at end of file
+lapply le_gen_S_x.
+*)
--- /dev/null
+whelp instance
+ \lambda A:Set.
+ \lambda f: A \to A \to A.
+ \forall x,y : A.
+ f x y = f y x.
--- /dev/null
+whelp instance
+ \lambda A:Set.
+ \lambda f:A \to A \to A.
+ \forall x,y,z:A.
+ f x (f y z) = f (f x y) z.
--- /dev/null
+whelp instance
+ \lambda A:Set.
+ \lambda r:A \to A \to Prop.
+ \forall x:A.
+ r x x.
-%% commento segato dal lexer
(* commento che va nell'ast, ma non viene contato
come step perche' non e' un executable
alias symbol "eq" (instance 0) = "leibnitz's equality".
theorem a:0=0.
-%% commento segato dal lexer
(* nota *)
(**
-%% questo lo si vuole tenere anche dopo la hint
-hint.
-**)
+apply Prop.
+*)
apply cic:/Coq/Init/Logic/eq.ind#xpointer(1/1/1).
(* commenti che non devono essere colorati perche'
non c'e' nulla di eseguibile dopo di loro
*)
qed.
-%% EOF
+++ /dev/null
-instance
- \lambda A:Set.
- \lambda f: A \to A \to A.
- \forall x,y : A.
- f x y = f y x.
\ No newline at end of file
+++ /dev/null
-instance
- \lambda A:Set.
- \lambda f:A \to A \to A.
- \forall x,y,z:A.
- f x (f y z) = f (f x y) z.
\ No newline at end of file
+++ /dev/null
-instance
- \lambda A:Set.
- \lambda r:A \to A \to Prop.
- \forall x:A.
- r x x.
\ No newline at end of file