Exact expanded first-order arithmetic statement
forall p B C a v. (forall pft_index_negateunary_lookup_table. (exists pfa_gap_negateunary_lookup_tableprefix. pfa_gap_negateunary_lookup_tableprefix + S (pft_index_negateunary_lookup_table) = (p)) -> exists pft_value_negateunary_lookup_table. (((((exists ff_h_pft_negateunary_lookup_tablepointentry. ff_h_pft_negateunary_lookup_tablepointentry + S (pft_value_negateunary_lookup_table) = S ((S (pft_index_negateunary_lookup_table)) * C)) /\ exists ff_q_pft_negateunary_lookup_tablepointentry. B = ff_q_pft_negateunary_lookup_tablepointentry * S ((S (pft_index_negateunary_lookup_table)) * C) + (pft_value_negateunary_lookup_table))) /\ ((((exists pfa_gap_negateunary_lookup_tablepointvalueadditionleft. pfa_gap_negateunary_lookup_tablepointvalueadditionleft + S (pft_index_negateunary_lookup_table) = (p)) /\ (((exists pfa_gap_negateunary_lookup_tablepointvalueadditionright. pfa_gap_negateunary_lookup_tablepointvalueadditionright + S (pft_value_negateunary_lookup_table) = (p)) /\ ((((exists pfa_gap_negateunary_lookup_tablepointvalueadditionresultbound. pfa_gap_negateunary_lookup_tablepointvalueadditionresultbound + S (0) = (p)) /\ ((exists pfa_offset_left_negateunary_lookup_tablepointvalueadditionresultcongruence pfa_offset_right_negateunary_lookup_tablepointvalueadditionresultcongruence. ((pft_index_negateunary_lookup_table) + (pft_value_negateunary_lookup_table)) + (p) * pfa_offset_left_negateunary_lookup_tablepointvalueadditionresultcongruence = (0) + (p) * pfa_offset_right_negateunary_lookup_tablepointvalueadditionresultcongruence))))))))))))) -> (exists pfa_gap_negateunary_lookup_bound. pfa_gap_negateunary_lookup_bound + S (a) = (p)) -> (((exists ff_h_pft_negateunary_lookup_at. ff_h_pft_negateunary_lookup_at + S (v) = S ((S (a)) * C)) /\ exists ff_q_pft_negateunary_lookup_at. B = ff_q_pft_negateunary_lookup_at * S ((S (a)) * C) + (v))) -> (((exists pfa_gap_negateunary_lookup_graphadditionleft. pfa_gap_negateunary_lookup_graphadditionleft + S (a) = (p)) /\ (((exists pfa_gap_negateunary_lookup_graphadditionright. pfa_gap_negateunary_lookup_graphadditionright + S (v) = (p)) /\ ((((exists pfa_gap_negateunary_lookup_graphadditionresultbound. pfa_gap_negateunary_lookup_graphadditionresultbound + S (0) = (p)) /\ ((exists pfa_offset_left_negateunary_lookup_graphadditionresultcongruence pfa_offset_right_negateunary_lookup_graphadditionresultcongruence. ((a) + (v)) + (p) * pfa_offset_left_negateunary_lookup_graphadditionresultcongruence = (0) + (p) * pfa_offset_right_negateunary_lookup_graphadditionresultcongruence)))))))))Constructive proof overview
Generated structural guide
Every decoded negate table lookup has its exact unary meaning, including the inverse-at-zero convention.
The unchanged tactic script uses 1 declared prerequisite and contains 26 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
Direct 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–8
02Establish hpointL9–12
03Separate the logical casesL13–14
04Establish heqL15–24
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
05Calculate and transport equalitiesL25–25
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L25
rewrite heq at hpoint_witness_right
06Use earlier factsL26–26
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L26
exact hpoint_witness_right
Original exact command ledger · 26 lines
- 0001
intro p - 0002
intro B - 0003
intro C - 0004
intro a - 0005
intro v - 0006
intro htable - 0007
intro ha - 0008
intro hat - 0009
have hpoint : exists w. (((((exists ff_h_pft_negateunary_lookup_pointentry. ff_h_pft_negateunary_lookup_pointentry + S (w) = S ((S (a)) * C)) /\ exists ff_q_pft_negateunary_lookup_pointentry. B = ff_q_pft_negateunary_lookup_pointentry * S ((S (a)) * C) + (w))) /\ ((((exists pfa_gap_negateunary_lookup_pointvalueadditionleft. pfa_gap_negateunary_lookup_pointvalueadditionleft + S (a) = (p)) /\ (((exists pfa_gap_negateunary_lookup_pointvalueadditionright. pfa_gap_negateunary_lookup_pointvalueadditionright + S (w) = (p)) /\ ((((exists pfa_gap_negateunary_lookup_pointvalueadditionresultbound. pfa_gap_negateunary_lookup_pointvalueadditionresultbound + S (0) = (p)) /\ ((exists pfa_offset_left_negateunary_lookup_pointvalueadditionresultcongruence pfa_offset_right_negateunary_lookup_pointvalueadditionresultcongruence. ((a) + (w)) + (p) * pfa_offset_left_negateunary_lookup_pointvalueadditionresultcongruence = (0) + (p) * pfa_offset_right_negateunary_lookup_pointvalueadditionresultcongruence)))))))))))) - 0010
specialize htable (a) - 0011
apply htable - 0012
exact ha - 0013
cases hpoint - 0014
cases hpoint_witness - 0015
have heq : x = v - 0016
specialize beta_at_unique (B) - 0017
specialize beta_at_unique (C) - 0018
specialize beta_at_unique (a) - 0019
specialize beta_at_unique (x) - 0020
specialize beta_at_unique (v) - 0021
apply beta_at_unique - 0022
exact hpoint_witness_left - 0023
exact hat - 0024
rewrite heq at hpoint_witness_right - 0025
rewrite heq at hpoint_witness_right - 0026
exact hpoint_witness_right