{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)) : (forall (l:L), xL l < {{ yL | yR // ycut }}) -> (forall (r:R'), {{ xL | xR // xcut }} < yR r) -> {{ xL | xR // xcut }} <= {{ yL | yR // ycut }} := game_le_lr (game_of o xL) (game_of o xR) (game_of o yL) (game_of o yR).
Require Import HoTT.Basics HoTT.Types. Require Import TruncType HSet. Require Import HoTT.Truncations.Core.