intro h a
case mpr
α β α' β' : Type
γ : β → Type
init_carry : α → Bool
next_carry : (α → Bool) → (β → Bool) → α → Bool
next_bit : (α → Bool) → (β → Bool) → (α → Bool) × Bool
inst✝¹ : Fintype α
inst✝ : Fintype α'
seq₁ seq₂ : ℕ → Bool
⊢ (∀ (i : ℕ), _root_.xor (seq₁ i) (seq₂ i) = false) → ∀ (i : ℕ), seq₁ i = seq₂ i
case mpr
α β α' β' : Type
γ : β → Type
init_carry : α → Bool
next_carry : (α → Bool) → (β → Bool) → α → Bool
next_bit : (α → Bool) → (β → Bool) → (α → Bool) × Bool
inst✝¹ : Fintype α
inst✝ : Fintype α'
seq₁ seq₂ : ℕ → Bool
h : ∀ (i : ℕ), _root_.xor (seq₁ i) (seq₂ i) = false
a : ℕ
⊢ seq₁ a = seq₂ a