fact: Definition pull_bool_rect_fun_id {T A} (a a' : T -> A) (b : bool) : (fun t : T => bool_rect (fun _ => A) (a t) (a' t) b) = bool_rect (fun _ => T -> A) a a' b := pull_bool_rect_fun (fun x => x) a a' b.
imports: Fiat.Common.Coq__8_4__8_5__Compat