def findAux (self : UnionFind α) (x : Fin self.size) :
    (s : Array (UFNode α)) ×' (root : Fin s.size) ×'
    ∃ n, ∃ (m : UFModel n) (m' : UFModel n),
      m.Models self.arr ∧ m'.Models s ∧ m'.rank = m.rank ∧
      (∃ hr, (m'.parent ⟨root, hr⟩).1 = root) ∧
      m.rank x ≤ m.rank root := by
  let y := self.arr[x].parent
  refine if h : y = x then ⟨self.arr, x, ?a'⟩ else
    have := Nat.sub_lt_sub_left (self.lt_rankMax x) (self.rank_lt _ h)
    let ⟨arr₁, root, H⟩ := self.findAux ⟨y, self.parent_lt _ x.2⟩
    have hx := ?hx
    let arr₂ := arr₁.set ⟨x, hx⟩ {arr₁.get ⟨x, hx⟩ with parent := root}
    ⟨arr₂, ⟨root, by simp [root.2]⟩, ?b'⟩
  -- start proof
  

Proof state:
case a'
α : Type ?u.57384
self : UnionFind α
x : Fin (size self)
y : ℕ := self.arr[x].parent
h : y = ↑x
⊢ ∃ n m m',
    UFModel.Models self.arr m ∧
      UFModel.Models self.arr m' ∧
        m'.rank = m.rank ∧
          (∃ hr, ↑(UFModel.parent m' { val := ↑x, isLt := hr }) = ↑x) ∧ UFModel.rank m ↑x ≤ UFModel.rank m ↑x
case hx
α : Type ?u.57384
self : UnionFind α
x : Fin (size self)
y : ℕ := self.arr[x].parent
h : ¬y = ↑x
this : rankMax self - rank self self.arr[↑x].parent < rankMax self - rank self ↑x
arr₁ : Array (UFNode α)
root : Fin (Array.size arr₁)
H :
  ∃ n m m',
    UFModel.Models self.arr m ∧
      UFModel.Models arr₁ m' ∧
        m'.rank = m.rank ∧
          (∃ hr, ↑(UFModel.parent m' { val := ↑root, isLt := hr }) = ↑root) ∧
            UFModel.rank m ↑{ val := y, isLt := (_ : self.arr[↑x].parent < size self) } ≤ UFModel.rank m ↑root
⊢ ↑x < Array.size arr₁
case b'
α : Type ?u.57384
self : UnionFind α
x : Fin (size self)
y : ℕ := self.arr[x].parent
h : ¬y = ↑x
this : rankMax self - rank self self.arr[↑x].parent < rankMax self - rank self ↑x
arr₁ : Array (UFNode α)
root : Fin (Array.size arr₁)
H :
  ∃ n m m',
    UFModel.Models self.arr m ∧
      UFModel.Models arr₁ m' ∧
        m'.rank = m.rank ∧
          (∃ hr, ↑(UFModel.parent m' { val := ↑root, isLt := hr }) = ↑root) ∧
            UFModel.rank m ↑{ val := y, isLt := (_ : self.arr[↑x].parent < size self) } ≤ UFModel.rank m ↑root
hx : ↑x < Array.size arr₁
arr₂ : Array (UFNode α) :=
  Array.set arr₁ { val := ↑x, isLt := hx }
    (let src := Array.get arr₁ { val := ↑x, isLt := hx };
    { parent := ↑root, value := src.value, rank := src.rank })
⊢ ∃ n m m',
    UFModel.Models self.arr m ∧
      UFModel.Models arr₂ m' ∧
        m'.rank = m.rank ∧
          (∃ hr,
              ↑(UFModel.parent m'
                    {
                      val :=
                        ↑{ val := ↑root,
                            isLt :=
                              (_ :
                                ↑root <
                                  Array.size
                                    (Array.set arr₁ { val := ↑x, isLt := hx }
                                      { parent := ↑root, value := arr₁[↑x].value, rank := arr₁[↑x].rank })) },
                      isLt := hr }) =
                ↑{ val := ↑root,
                    isLt :=
                      (_ :
                        ↑root <
                          Array.size
                            (Array.set arr₁ { val := ↑x, isLt := hx }
                              { parent := ↑root, value := arr₁[↑x].value, rank := arr₁[↑x].rank })) }) ∧
            UFModel.rank m ↑x ≤
              UFModel.rank m
                ↑{ val := ↑root,
                    isLt :=
                      (_ :
                        ↑root <
                          Array.size
                            (Array.set arr₁ { val := ↑x, isLt := hx }
                              { parent := ↑root, value := arr₁[↑x].value, rank := arr₁[↑x].rank })) }

Next tactic:
case a' => -- FIXME: hygiene bug causes `case a` to fail
    let ⟨m, hm⟩ := self.model'
    exact ⟨_, m, m, hm, hm, rfl, ⟨x.2, by rwa [← hm.parent_eq]⟩, le_refl _⟩