fact: Definition plus_inner : { g : forall (y : No), { x_plus_y : No & (forall l, (xL_plus l).1 y < x_plus_y) * (forall r, x_plus_y < (xR_plus r).1 y) } & (forall y z : No, y <= z -> (g y).1 <= (g z).1) * (forall y z : No, y < z -> (g y).1 < (g z).1) }.
imports: HoTT.Basics HoTT.Types HoTT.Spaces.No.Core HoTT.Spaces.No.Negation