Exact expanded first-order arithmetic statement
forall p a b c z. (((exists pfa_gap_cancel_add_firstleft. pfa_gap_cancel_add_firstleft + S (a) = (p)) /\ (((exists pfa_gap_cancel_add_firstright. pfa_gap_cancel_add_firstright + S (b) = (p)) /\ ((((exists pfa_gap_cancel_add_firstresultbound. pfa_gap_cancel_add_firstresultbound + S (z) = (p)) /\ ((exists pfa_offset_left_cancel_add_firstresultcongruence pfa_offset_right_cancel_add_firstresultcongruence. ((a) + (b)) + (p) * pfa_offset_left_cancel_add_firstresultcongruence = (z) + (p) * pfa_offset_right_cancel_add_firstresultcongruence))))))))) -> (((exists pfa_gap_cancel_add_secondleft. pfa_gap_cancel_add_secondleft + S (a) = (p)) /\ (((exists pfa_gap_cancel_add_secondright. pfa_gap_cancel_add_secondright + S (c) = (p)) /\ ((((exists pfa_gap_cancel_add_secondresultbound. pfa_gap_cancel_add_secondresultbound + S (z) = (p)) /\ ((exists pfa_offset_left_cancel_add_secondresultcongruence pfa_offset_right_cancel_add_secondresultcongruence. ((a) + (c)) + (p) * pfa_offset_left_cancel_add_secondresultcongruence = (z) + (p) * pfa_offset_right_cancel_add_secondresultcongruence))))))))) -> b = cConstructive proof overview
Generated structural guide
Additive cancellation follows from genuine balanced congruence cancellation and canonical bounds.
The unchanged tactic script uses 4 declared prerequisites and contains 35 exact native proof lines.
Public research checkpoint: original HA and independently compiled Lean verified; not Alpha-enrolled, no Alpha checked-use authority; not Stable
Proof neighborhood
Direct dependencies
mod_eq_bounded_unique Alpha theorem; checked-use authorized mod_eq_add_cancel_left Alpha theorem; checked-use authorized mod_eq_trans Alpha theorem; checked-use authorized mod_eq_symm Alpha theorem; checked-use authorizedDirect dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Local theorem links identify exact declared prerequisites. The literal dependency-closed bundle is checked by original HA and the independently compiled Lean verifier. Public delivery grants no Alpha checked-use authority or Stable membership.
Read the argument
Proof checkpoints
This is a reading aid, not a new proof or a proof-tree certificate. Checkpoint groups are consecutive commands, not inferred branch boundaries. Every step links to the preserved script.
01Fix variables and assumptionsL1–7
02Separate the logical casesL8–13
03Use earlier factsL14–23
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L14
specialize mod_eq_bounded_unique (p) - L15
specialize mod_eq_bounded_unique (b) - L16
specialize mod_eq_bounded_unique (c) - L17
apply mod_eq_bounded_unique - L18
exact hb_right_left - L19
exact hc_right_left - L20
specialize mod_eq_add_cancel_left (p) - L21
specialize mod_eq_add_cancel_left (a) - L22
specialize mod_eq_add_cancel_left (b) - L23
specialize mod_eq_add_cancel_left (c)
04Use earlier factsL24–33
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L24
apply mod_eq_add_cancel_left - L25
specialize mod_eq_trans (p) - L26
specialize mod_eq_trans (a + b) - L27
specialize mod_eq_trans (z) - L28
specialize mod_eq_trans (a + c) - L29
apply mod_eq_trans - L30
exact hb_right_right_right - L31
specialize mod_eq_symm (p) - L32
specialize mod_eq_symm (a + c) - L33
specialize mod_eq_symm (z)
Original exact command ledger · 35 lines
- 0001
intro p - 0002
intro a - 0003
intro b - 0004
intro c - 0005
intro z - 0006
intro hb - 0007
intro hc - 0008
cases hb - 0009
cases hb_right - 0010
cases hb_right_right - 0011
cases hc - 0012
cases hc_right - 0013
cases hc_right_right - 0014
specialize mod_eq_bounded_unique (p) - 0015
specialize mod_eq_bounded_unique (b) - 0016
specialize mod_eq_bounded_unique (c) - 0017
apply mod_eq_bounded_unique - 0018
exact hb_right_left - 0019
exact hc_right_left - 0020
specialize mod_eq_add_cancel_left (p) - 0021
specialize mod_eq_add_cancel_left (a) - 0022
specialize mod_eq_add_cancel_left (b) - 0023
specialize mod_eq_add_cancel_left (c) - 0024
apply mod_eq_add_cancel_left - 0025
specialize mod_eq_trans (p) - 0026
specialize mod_eq_trans (a + b) - 0027
specialize mod_eq_trans (z) - 0028
specialize mod_eq_trans (a + c) - 0029
apply mod_eq_trans - 0030
exact hb_right_right_right - 0031
specialize mod_eq_symm (p) - 0032
specialize mod_eq_symm (a + c) - 0033
specialize mod_eq_symm (z) - 0034
apply mod_eq_symm - 0035
exact hc_right_right_right