mathcomp/ssrtest/typeof.v


1
2
3
4
5
6
7
8
9
10

Require Import mathcomp.ssreflect.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.