test-suite/output/Existentials.v


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(* Test propagation of clear/clearbody in existential variables *)

Section Test.

Variable p:nat.
Let q := S p.

Goal forall n m:nat, n = m.
intros.
eapply eq_trans.
clearbody q.
clear p. (* Error ... *)

Show Existentials.
Abort.
End Test.