Binary work-tape equality — proof internals

theorem Complexity.TM.binaryEqTM_reachesIn_frame_internal {n : ℕ} (lhsIdx rhsIdx resultIdx : Fin n) (hdistinct : BinaryEqDistinct lhsIdx rhsIdx resultIdx) (lhs rhs : List Bool) (inp₀ : Tape) (work₀ : Fin n → Tape) (out₀ : Tape) (hlhs : (work₀ lhsIdx).HasBinaryString lhs) (hrhs : (work₀ rhsIdx).HasBinaryString rhs) (hresult : (work₀ resultIdx).HasBinaryPrefix []) (hinput : inp₀.read ≠ Γ.start) (hother : ∀ (i : Fin n), i ≠ lhsIdx → i ≠ rhsIdx → i ≠ resultIdx → (work₀ i).read ≠ Γ.start) (houtput : out₀.read ≠ Γ.start) : ∃ (c' : Cfg n (binaryEqTM lhsIdx rhsIdx resultIdx).Q), ∃ t ≤ binaryEqTime lhs rhs, (binaryEqTM lhsIdx rhsIdx resultIdx).reachesIn t { state := (binaryEqTM lhsIdx rhsIdx resultIdx).qstart, input := inp₀, work := work₀, output := out₀ } c' ∧ (binaryEqTM lhsIdx rhsIdx resultIdx).halted c' ∧ c'.input = inp₀ ∧ (c'.work resultIdx).HasBinaryPrefix [decide (lhs = rhs)] ∧ (c'.work lhsIdx).HasBinaryContent lhs ∧ 1 ≤ (c'.work lhsIdx).head ∧ (c'.work rhsIdx).HasBinaryContent rhs ∧ 1 ≤ (c'.work rhsIdx).head ∧ (∀ (i : Fin n), i ≠ lhsIdx → i ≠ rhsIdx → i ≠ resultIdx → c'.work i = work₀ i) ∧ c'.output = out₀

theorem Complexity.TM.binaryEqTM_isTransducer_internal {n : ℕ} (lhsIdx rhsIdx resultIdx : Fin n) : (binaryEqTM lhsIdx rhsIdx resultIdx).IsTransducer