{L R : Type@{i} } {s : InSort S L R} (xL : L -> GenNo) (xR : R -> GenNo) (xcut : forall (l:L) (r:R), (xL l) < (xR r)) {L' R' : Type@{i} } {s' : InSort S L' R'} (yL : L' -> GenNo) (yR : R' -> GenNo) (ycut : forall (l:L') (r:R'), (yL l) < (yR r)) (l : L') : ({{ xL | xR // xcut }} <= yL l) -> {{ xL | xR // xcut }} < {{ yL | yR // ycut }} := game_lt_l (game_of o xL) (game_of o xR) (game_of o yL) (game_of o yR) l.
Require Import HoTT.Basics HoTT.Types. Require Import TruncType HSet. Require Import HoTT.Truncations.Core.