blob: 0009844fb6959b3cafffb2b941b8df4cf0afdcbd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(* Check that closure of filter did not restrict the former evar filter *)
Lemma foo (new : nat) : False.
evar (H1: nat).
set (H3 := 0).
assert (H3' := id H3).
evar (H5: nat).
clear H3.
assert (H5 = new).
unfold H5.
unfold H1.
exact (eq_refl new).
Abort.
|
