Definition case_L_R (P : forall n m, t (n + m) -> Type) {n m} (p : t (n + m)) :
(forall n m (q : t n), P n m (L m q)) -> (forall n m (q : t m), P n m (R n q)) -> P n m p :=
fun HL HR => case_L_R' _ p (HL _ _) (HR _ _).

Lemma case_L_R'_R {n m : nat} (P : Fin.t (n + m) -> Type) (p : Fin.t m) HL HR :
case_L_R' P (Fin.R n p) HL HR = HR p.