fact: Definition not_option_pointed_Prop (x : option pointed_Prop) : option pointed_Prop := match x with | Some trivial => None | None => Some trivial | Some (inject p) => Some (inject (~p)) end.
imports: Coq.Setoids.Setoid Fiat.Common.Coq__8_4__8_5__Compat