fact: Definition dec_eq_adjust' {U x} (p : forall y : U, {x = y} + {x <> y}) y : {x = y} + {x <> y} := match p x, p y with | left pf, left pf' => left (eq_trans (eq_sym pf) pf') | right pf, _ => match pf eq_refl with end | _, right pf => right pf end.
imports: Coq.Logic.EqdepFacts Fiat.Common.Coq__8_4__8_5__Compat