(L R : Type) (s : InSort S L R) (xL : L -> No) (xR : R -> No) (xcut : forall (l : L) (r : R), xL l < xR r) (L' R' : Type) (s' : InSort S L' R') (yL : L' -> No) (yR : R' -> No) (ycut : forall (l : L') (r : R'), yL l < yR r) : lt' {{xL | xR // xcut}} {{yL | yR // ycut}} = (hor {l':L' & le' {{ xL | xR // xcut }} (yL l')} {r:R & le' (xR r) {{ yL | yR // ycut }} }) := 1.
Require Import HoTT.Basics HoTT.Types. Require Import TruncType HSet. Require Import HoTT.Truncations.Core.