Exact expanded PA statement
forall b c. (forall wpo_injective_left_wpoi_zero_injective wpo_injective_right_wpoi_zero_injective wpo_injective_value_wpoi_zero_injective. (exists wpo_gap_wpoi_zero_injective_left_bound. wpo_gap_wpoi_zero_injective_left_bound + S (wpo_injective_left_wpoi_zero_injective) = 0) -> (exists wpo_gap_wpoi_zero_injective_right_bound. wpo_gap_wpoi_zero_injective_right_bound + S (wpo_injective_right_wpoi_zero_injective) = 0) -> (((exists wpo_beta_height_wpoi_zero_injective_left_entry. wpo_beta_height_wpoi_zero_injective_left_entry + S (wpo_injective_value_wpoi_zero_injective) = S ((S (wpo_injective_left_wpoi_zero_injective)) * c)) /\ exists wpo_beta_quotient_wpoi_zero_injective_left_entry. b = wpo_beta_quotient_wpoi_zero_injective_left_entry * S ((S (wpo_injective_left_wpoi_zero_injective)) * c) + (wpo_injective_value_wpoi_zero_injective))) -> (((exists wpo_beta_height_wpoi_zero_injective_right_entry. wpo_beta_height_wpoi_zero_injective_right_entry + S (wpo_injective_value_wpoi_zero_injective) = S ((S (wpo_injective_right_wpoi_zero_injective)) * c)) /\ exists wpo_beta_quotient_wpoi_zero_injective_right_entry. b = wpo_beta_quotient_wpoi_zero_injective_right_entry * S ((S (wpo_injective_right_wpoi_zero_injective)) * c) + (wpo_injective_value_wpoi_zero_injective))) -> wpo_injective_left_wpoi_zero_injective = wpo_injective_right_wpoi_zero_injective)Structural proof guide
Generated structural guide
Decoded-prefix injectivity is vacuous at length zero.
Use the direct prerequisites add_eq_zero_right, succ_ne_zero as previously established PA formulas.
The proof proceeds by case analysis (1), intermediate claims (1).
Referenced ingredients
Proof neighborhood
Direct dependencies
Direct dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Linked names are exact direct references. This Alpha-v16 checked-use theorem is independently kernel-checked when replayed; it is not a Stable theorem.
- 0001
intro b - 0002
intro c - 0003
intro q - 0004
intro r - 0005
intro w - 0006
intro hq - 0007
intro hr - 0008
intro hleft - 0009
intro hright - 0010
exfalso - 0011
cases hq - 0012
have hsq : S q = 0 - 0013
specialize add_eq_zero_right x - 0014
specialize add_eq_zero_right (S q) - 0015
apply add_eq_zero_right - 0016
exact hq_witness - 0017
specialize succ_ne_zero q - 0018
apply succ_ne_zero - 0019
exact hsq