Exact expanded first-order arithmetic statement
forall p a. (~((p) = 1) /\ forall pfa_factor_left_inverse_domain pfa_factor_right_inverse_domain. (p) = pfa_factor_left_inverse_domain * pfa_factor_right_inverse_domain -> pfa_factor_left_inverse_domain = 1 \/ pfa_factor_right_inverse_domain = 1) -> (exists pfa_gap_inverse_input. pfa_gap_inverse_input + S (a) = (p)) -> ~(a = 0) -> exists b. (((~((a) = 0)) /\ ((((exists pfa_gap_inverse_existsmultiplicationleft. pfa_gap_inverse_existsmultiplicationleft + S (a) = (p)) /\ (((exists pfa_gap_inverse_existsmultiplicationright. pfa_gap_inverse_existsmultiplicationright + S (b) = (p)) /\ ((((exists pfa_gap_inverse_existsmultiplicationresultbound. pfa_gap_inverse_existsmultiplicationresultbound + S (1) = (p)) /\ ((exists pfa_offset_left_inverse_existsmultiplicationresultcongruence pfa_offset_right_inverse_existsmultiplicationresultcongruence. ((a) * (b)) + (p) * pfa_offset_left_inverse_existsmultiplicationresultcongruence = (1) + (p) * pfa_offset_right_inverse_existsmultiplicationresultcongruence))))))))))))Constructive proof overview
Generated structural guide
Every nonzero representative has an actual bounded multiplicative inverse, uniformly at every prime.
The unchanged tactic script uses 2 declared prerequisites and contains 27 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
prime_bounded_nonzero_mod_inverse Alpha theorem; checked-use authorized prime_two_le 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–5
02Establish hiL6–12
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply prime bounded nonzero mod inverse.
- L6
have hi : exists b. ~(b = 0) /\ ((exists pfa_gap_inverse_bound. pfa_gap_inverse_bound + S (b) = (p)) /\ (exists pfa_offset_left_inverse_mod pfa_offset_right_inverse_mod. (a*b) + (p) * pfa_offset_left_inverse_mod = (1) + (p) * pfa_offset_right_inverse_mod)) - L7
specialize prime_bounded_nonzero_mod_inverse (p) - L8
specialize prime_bounded_nonzero_mod_inverse (a) - L9
apply prime_bounded_nonzero_mod_inverse - L10
exact hp - L11
exact hn - L12
exact ha
03Separate the logical casesL13–15
04Construct an explicit witnessL16–16
Supply the displayed value, then prove that it has the required property.
- L16
exists x
05Separate the logical casesL17–17
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L17
split
06Use earlier factsL18–18
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L18
exact hn
07Separate the logical casesL19–19
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L19
split
08Use earlier factsL20–20
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L20
exact ha
09Separate the logical casesL21–21
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L21
split
10Use earlier factsL22–22
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L22
exact hi_witness_right_left
11Separate the logical casesL23–23
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L23
split
Original exact command ledger · 27 lines
- 0001
intro p - 0002
intro a - 0003
intro hp - 0004
intro ha - 0005
intro hn - 0006
have hi : exists b. ~(b = 0) /\ ((exists pfa_gap_inverse_bound. pfa_gap_inverse_bound + S (b) = (p)) /\ (exists pfa_offset_left_inverse_mod pfa_offset_right_inverse_mod. (a*b) + (p) * pfa_offset_left_inverse_mod = (1) + (p) * pfa_offset_right_inverse_mod)) - 0007
specialize prime_bounded_nonzero_mod_inverse (p) - 0008
specialize prime_bounded_nonzero_mod_inverse (a) - 0009
apply prime_bounded_nonzero_mod_inverse - 0010
exact hp - 0011
exact hn - 0012
exact ha - 0013
cases hi - 0014
cases hi_witness - 0015
cases hi_witness_right - 0016
exists x - 0017
split - 0018
exact hn - 0019
split - 0020
exact ha - 0021
split - 0022
exact hi_witness_right_left - 0023
split - 0024
specialize prime_two_le (p) - 0025
apply prime_two_le - 0026
exact hp - 0027
exact hi_witness_right_right