1
(* Some check of Miller's pattern inference - used to fail in 8.2 due
2
first to the presence of aliases, secondly due to the absence of
3
restriction of the potential interesting variables to the subset of
4
variables effectively occurring in the term to instantiate *)
6
Set Implicit Arguments.
8
Variable choose : forall(P : bool -> Prop)(H : exists x, P x), bool.
10
Variable H : exists x : bool, True.
14
Some _ => @choose _ H |_ => true