diff options
Diffstat (limited to 'mathcomp/ssrtest/typeof.v')
| -rw-r--r-- | mathcomp/ssrtest/typeof.v | 9 |
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 |