Exact expanded PA statement
forall p n b c l i j. (forall wip_index_entry_prefix. (exists wip_gap_entry_prefix_prefix_bound. wip_gap_entry_prefix_prefix_bound + S wip_index_entry_prefix = l) -> exists wip_mate_entry_prefix. ((((exists wip_beta_height_entry_prefix_decoded. wip_beta_height_entry_prefix_decoded + S (wip_mate_entry_prefix) = S ((S (wip_index_entry_prefix)) * c)) /\ exists wip_beta_quotient_entry_prefix_decoded. b = wip_beta_quotient_entry_prefix_decoded * S ((S (wip_index_entry_prefix)) * c) + (wip_mate_entry_prefix))) /\ ((exists wip_gap_entry_prefix_inverse_index_bound. wip_gap_entry_prefix_inverse_index_bound + S wip_index_entry_prefix = n) /\ ((exists wip_gap_entry_prefix_inverse_mate_bound. wip_gap_entry_prefix_inverse_mate_bound + S wip_mate_entry_prefix = n) /\ (exists wip_mod_left_entry_prefix_inverse_mod wip_mod_right_entry_prefix_inverse_mod. ((S wip_index_entry_prefix) * S wip_mate_entry_prefix) + p * wip_mod_left_entry_prefix_inverse_mod = 1 + p * wip_mod_right_entry_prefix_inverse_mod))))) -> (exists wip_gap_entry_index_bound. wip_gap_entry_index_bound + S i = l) -> (((exists wip_beta_height_entry_source. wip_beta_height_entry_source + S (j) = S ((S (i)) * c)) /\ exists wip_beta_quotient_entry_source. b = wip_beta_quotient_entry_source * S ((S (i)) * c) + (j))) -> ((exists wip_gap_entry_result_index_bound. wip_gap_entry_result_index_bound + S i = n) /\ ((exists wip_gap_entry_result_mate_bound. wip_gap_entry_result_mate_bound + S j = n) /\ (exists wip_mod_left_entry_result_mod wip_mod_right_entry_result_mod. ((S i) * S j) + p * wip_mod_left_entry_result_mod = 1 + p * wip_mod_right_entry_result_mod)))Structural proof guide
Generated structural guide
Every decoded inverse-prefix entry satisfies its stored inverse relation.
Use the direct prerequisites beta_at_unique as previously established PA formulas.
The proof proceeds by case analysis (2), intermediate claims (2), equality transport (2).
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 p - 0002
intro n - 0003
intro b - 0004
intro c - 0005
intro l - 0006
intro i - 0007
intro j - 0008
intro hprefix - 0009
intro hi - 0010
intro hat - 0011
have hstored : exists k. ((((exists wip_beta_height_entry_stored_at. wip_beta_height_entry_stored_at + S (k) = S ((S (i)) * c)) /\ exists wip_beta_quotient_entry_stored_at. b = wip_beta_quotient_entry_stored_at * S ((S (i)) * c) + (k))) /\ ((exists wip_gap_entry_stored_inverse_index_bound. wip_gap_entry_stored_inverse_index_bound + S i = n) /\ ((exists wip_gap_entry_stored_inverse_mate_bound. wip_gap_entry_stored_inverse_mate_bound + S k = n) /\ (exists wip_mod_left_entry_stored_inverse_mod wip_mod_right_entry_stored_inverse_mod. ((S i) * S k) + p * wip_mod_left_entry_stored_inverse_mod = 1 + p * wip_mod_right_entry_stored_inverse_mod)))) - 0012
specialize hprefix i - 0013
apply hprefix - 0014
exact hi - 0015
cases hstored - 0016
cases hstored_witness - 0017
have heq : j = x - 0018
specialize beta_at_unique b - 0019
specialize beta_at_unique c - 0020
specialize beta_at_unique i - 0021
specialize beta_at_unique j - 0022
specialize beta_at_unique x - 0023
apply beta_at_unique - 0024
exact hat - 0025
exact hstored_witness_left - 0026
rewrite heq - 0027
rewrite heq - 0028
exact hstored_witness_right