aboutsummaryrefslogtreecommitdiff
path: root/mathcomp/ssrtest/typeof.v
diff options
context:
space:
mode:
authorEnrico Tassi2015-03-09 11:07:53 +0100
committerEnrico Tassi2015-03-09 11:24:38 +0100
commitfc84c27eac260dffd8f2fb1cb56d599f1e3486d9 (patch)
treec16205f1637c80833a4c4598993c29fa0fd8c373 /mathcomp/ssrtest/typeof.v
Initial commit
Diffstat (limited to 'mathcomp/ssrtest/typeof.v')
-rw-r--r--mathcomp/ssrtest/typeof.v9
1 files changed, 9 insertions, 0 deletions
diff --git a/mathcomp/ssrtest/typeof.v b/mathcomp/ssrtest/typeof.v
new file mode 100644
index 0000000..8ad81a3
--- /dev/null
+++ b/mathcomp/ssrtest/typeof.v
@@ -0,0 +1,9 @@
+Require Import ssreflect.
+Ltac mycut x :=
+ let tx := type of x in
+ cut tx.
+
+Lemma test : True.
+Proof.
+by mycut I=> [ x | ]; [ exact x | exact I ].
+Qed. \ No newline at end of file