coq-plugin: type definitions

parent 8704adaa
......@@ -2,18 +2,9 @@ Declare ML Module "whytac".
Require Export ZArith.
Open Scope Z_scope.
Parameter foo : Set -> Set.
Definition t : Set := foo Z.
Definition u : Set := foo t.
Require Export Reals.
Print Ropp.
SearchAbout Rinv.
Goal (/1 = 1)%R.
why.
Print Zdiv.
SearchAbout Zdiv_eucl.
Goal forall x:Z, x=1 -> x/1=0.
Goal forall x:u, x=x.
why.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment