blob: f36f757f10520cadc997aaa01a299df29e2d11eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(* Don't do zeta in cbn when not asked for *)
Goal let x := 0 in
let y := x in
y = 0.
(* We use "cofix" as an example because there are obviously no
cofixpoints in sight. This problem arises with any set of
reduction flags (not including zeta where the lets are of course reduced away) *)
cbn cofix.
intro x.
unfold x at 1. (* Should succeed *)
Undo 2.
cbn zeta.
Fail unfold x at 1.
Abort.
|