theorem add : ∀ {x y : PGame} (_ : Numeric x) (_ : Numeric y), Numeric (x + y)
  | ⟨xl, xr, xL, xR⟩, ⟨yl, yr, yL, yR⟩, ox, oy =>
    ⟨by
      

Proof state:
xl xr : Type u_1
xL : xl → PGame
xR : xr → PGame
yl yr : Type u_1
yL : yl → PGame
yR : yr → PGame
ox : Numeric (PGame.mk xl xr xL xR)
oy : Numeric (PGame.mk yl yr yL yR)
⊢ ∀ (i : xl ⊕ yl) (j : xr ⊕ yr),
    (fun t =>
          Sum.rec
            (fun i =>
              (fun a =>
                  rec (motive := fun x => PGame → PGame)
                    (fun xl xr a a IHxl IHxr y =>
                      rec
                        (fun yl yr yL yR IHyl IHyr =>
                          let_fun y := PGame.mk yl yr yL yR;
                          PGame.mk (xl ⊕ yl) (xr ⊕ yr) (fun t => Sum.rec (fun i => IHxl i y) IHyl t) fun t =>
                            Sum.rec (fun i => IHxr i y) IHyr t)
                        y)
                    (xL a))
                i (PGame.mk yl yr yL yR))
            (fun a =>
              rec
                (fun yl yr yL yR IHyl IHyr =>
                  let_fun y := PGame.mk yl yr yL yR;
                  PGame.mk (xl ⊕ yl) (xr ⊕ yr)
                    (fun t =>
                      Sum.rec
                        (fun i =>
                          (fun a =>
                              rec (motive := fun x => PGame → PGame)
                                (fun xl xr a a IHxl IHxr y =>
                                  rec
                                    (fun yl yr yL yR IHyl IHyr =>
                                      let_fun y := PGame.mk yl yr yL yR;
                                      PGame.mk (xl ⊕ yl) (xr ⊕ yr) (fun t => Sum.rec (fun i => IHxl i y) IHyl t)
                                        fun t => Sum.rec (fun i => IHxr i y) IHyr t)
                                    y)
                                (xL a))
                            i y)
                        IHyl t)
                    fun t =>
                    Sum.rec
                      (fun i =>
                        (fun a =>
                            rec (motive := fun x => PGame → PGame)
                              (fun xl xr a a IHxl IHxr y =>
                                rec
                                  (fun yl yr yL yR IHyl IHyr =>
                                    let_fun y := PGame.mk yl yr yL yR;
                                    PGame.mk (xl ⊕ yl) (xr ⊕ yr) (fun t => Sum.rec (fun i => IHxl i y) IHyl t) fun t =>
                                      Sum.rec (fun i => IHxr i y) IHyr t)
                                  y)
                              (xR a))
                          i y)
                      IHyr t)
                (yL a))
            t)
        i <
      (fun t =>
          Sum.rec
            (fun i =>
              (fun a =>
                  rec (motive := fun x => PGame → PGame)
                    (fun xl xr a a IHxl IHxr y =>
                      rec
                        (fun yl yr yL yR IHyl IHyr =>
                          let_fun y := PGame.mk yl yr yL yR;
                          PGame.mk (xl ⊕ yl) (xr ⊕ yr) (fun t => Sum.rec (fun i => IHxl i y) IHyl t) fun t =>
                            Sum.rec (fun i => IHxr i y) IHyr t)
                        y)
                    (xR a))
                i (PGame.mk yl yr yL yR))
            (fun a =>
              rec
                (fun yl yr yL yR IHyl IHyr =>
                  let_fun y := PGame.mk yl yr yL yR;
                  PGame.mk (xl ⊕ yl) (xr ⊕ yr)
                    (fun t =>
                      Sum.rec
                        (fun i =>
                          (fun a =>
                              rec (motive := fun x => PGame → PGame)
                                (fun xl xr a a IHxl IHxr y =>
                                  rec
                                    (fun yl yr yL yR IHyl IHyr =>
                                      let_fun y := PGame.mk yl yr yL yR;
                                      PGame.mk (xl ⊕ yl) (xr ⊕ yr) (fun t => Sum.rec (fun i => IHxl i y) IHyl t)
                                        fun t => Sum.rec (fun i => IHxr i y) IHyr t)
                                    y)
                                (xL a))
                            i y)
                        IHyl t)
                    fun t =>
                    Sum.rec
                      (fun i =>
                        (fun a =>
                            rec (motive := fun x => PGame → PGame)
                              (fun xl xr a a IHxl IHxr y =>
                                rec
                                  (fun yl yr yL yR IHyl IHyr =>
                                    let_fun y := PGame.mk yl yr yL yR;
                                    PGame.mk (xl ⊕ yl) (xr ⊕ yr) (fun t => Sum.rec (fun i => IHxl i y) IHyl t) fun t =>
                                      Sum.rec (fun i => IHxr i y) IHyr t)
                                  y)
                              (xR a))
                          i y)
                      IHyr t)
                (yR a))
            t)
        j

Next tactic:
rintro (ix | iy) (jx | jy)