{P Q : Type} `{In Meet Q} (g h : Plus P -> Q) (p : g o to_plus P == h o to_plus P) : g == h := (fst (snd (ooextendable_plus 2%nat) g h) p).
Require Import HoTT.Basics HoTT.Types. Require Import Extensions HFiber Truncations NullHomotopy Limits.Pullback. Require Import Descent Lex Separated.