blob: e865f121e830e102bb31efecdd82d59397d6ce53 (
plain)
1
2
3
4
5
6
7
8
9
|
(* ClearBody must check that removing the body of definition does not
invalidate the well-typabilility of the visible goal *)
Goal True.
set (n := 0) in *.
set (I := refl_equal 0) in *.
change (n = 0) in (type of I).
Fail clearbody n.
Abort.
|
