blob: fdc33befc6ec3e5ed2eb3f6b60b955c0a28cf8e0 (
plain)
1
2
3
4
5
6
7
8
9
|
Goal True.
simple refine (let X : Type := _ in _);
[ abstract exact Set using Set'
| let X' := (eval cbv delta [X] in X) in
clear X;
simple refine (let id' : { x : X' | True } -> X' := _ in _);
[ abstract refine (@proj1_sig _ _) | ]
].
Abort.
|