blob: 988074e2f12ee7940e8b60bf666ce420fe8b5ab7 (
plain)
1
2
3
4
5
6
7
8
9
|
(* Fixed together with #3262 in 48af6d1418282323b9fff0e789fed9478c064434 *)
(* April 4, 2014 (non-progress in candidates was not detected) *)
Definition eqbool_dep (P : bool -> Prop) (h1 : P true) (b : bool) (h2 : P b)
: Prop :=
(match b (* return P b -> Prop *) with
| true => fun (h : P true) => h1 = h
| false => fun (_ : P false) => False
end (* : P b -> Prop *)) h2.
|