Exact expanded PA statement
forall p q i rb rc l. (forall eri_column_row_indicator_bits_prefix. (exists eri_gap_row_indicator_bits_prefix_bound. eri_gap_row_indicator_bits_prefix_bound + S (eri_column_row_indicator_bits_prefix) = l) -> exists eri_bit_row_indicator_bits_prefix. ((((exists ff_h_eri_row_indicator_bits_prefix_decoded. ff_h_eri_row_indicator_bits_prefix_decoded + S (eri_bit_row_indicator_bits_prefix) = S ((S (eri_column_row_indicator_bits_prefix)) * rc)) /\ exists ff_q_eri_row_indicator_bits_prefix_decoded. rb = ff_q_eri_row_indicator_bits_prefix_decoded * S ((S (eri_column_row_indicator_bits_prefix)) * rc) + (eri_bit_row_indicator_bits_prefix))) /\ (((eri_bit_row_indicator_bits_prefix = 0 /\ ((exists eri_gap_row_indicator_bits_prefix_choice_left. eri_gap_row_indicator_bits_prefix_choice_left + S (q * S i) = p * S eri_column_row_indicator_bits_prefix) /\ ~(exists eri_gap_row_indicator_bits_prefix_choice_right. eri_gap_row_indicator_bits_prefix_choice_right + S (p * S eri_column_row_indicator_bits_prefix) = q * S i))) \/ (eri_bit_row_indicator_bits_prefix = 1 /\ ((exists eri_gap_row_indicator_bits_prefix_choice_right. eri_gap_row_indicator_bits_prefix_choice_right + S (p * S eri_column_row_indicator_bits_prefix) = q * S i) /\ ~(exists eri_gap_row_indicator_bits_prefix_choice_left. eri_gap_row_indicator_bits_prefix_choice_left + S (q * S i) = p * S eri_column_row_indicator_bits_prefix))))))) -> (forall ff_i_row_indicator_all_bits. (exists ff_lt_row_indicator_all_bits_bound. ff_lt_row_indicator_all_bits_bound + S ff_i_row_indicator_all_bits = l) -> exists ff_bit_row_indicator_all_bits. ((((exists ff_h_row_indicator_all_bits_decoded. ff_h_row_indicator_all_bits_decoded + S (ff_bit_row_indicator_all_bits) = S ((S (ff_i_row_indicator_all_bits)) * rc)) /\ exists ff_q_row_indicator_all_bits_decoded. rb = ff_q_row_indicator_all_bits_decoded * S ((S (ff_i_row_indicator_all_bits)) * rc) + (ff_bit_row_indicator_all_bits))) /\ (ff_bit_row_indicator_all_bits = 0 \/ ff_bit_row_indicator_all_bits = 1)))Structural proof guide
Generated structural guide
The beta-coded indicator projection contains only zero and one.
This root lemma is proved directly from the PA rules and the hypotheses introduced by its statement.
The proof proceeds by case analysis (5), intermediate claims (2).
Referenced ingredients
none
Proof neighborhood
Direct dependencies
none
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 q - 0003
intro i - 0004
intro rb - 0005
intro rc - 0006
intro l - 0007
intro hprefix - 0008
intro j - 0009
intro hj - 0010
have hentry : forall eri_column_row_indicator_bits_entry_source. (exists eri_gap_row_indicator_bits_entry_source_bound. eri_gap_row_indicator_bits_entry_source_bound + S (eri_column_row_indicator_bits_entry_source) = l) -> exists eri_bit_row_indicator_bits_entry_source. ((((exists ff_h_eri_row_indicator_bits_entry_source_decoded. ff_h_eri_row_indicator_bits_entry_source_decoded + S (eri_bit_row_indicator_bits_entry_source) = S ((S (eri_column_row_indicator_bits_entry_source)) * rc)) /\ exists ff_q_eri_row_indicator_bits_entry_source_decoded. rb = ff_q_eri_row_indicator_bits_entry_source_decoded * S ((S (eri_column_row_indicator_bits_entry_source)) * rc) + (eri_bit_row_indicator_bits_entry_source))) /\ (((eri_bit_row_indicator_bits_entry_source = 0 /\ ((exists eri_gap_row_indicator_bits_entry_source_choice_left. eri_gap_row_indicator_bits_entry_source_choice_left + S (q * S i) = p * S eri_column_row_indicator_bits_entry_source) /\ ~(exists eri_gap_row_indicator_bits_entry_source_choice_right. eri_gap_row_indicator_bits_entry_source_choice_right + S (p * S eri_column_row_indicator_bits_entry_source) = q * S i))) \/ (eri_bit_row_indicator_bits_entry_source = 1 /\ ((exists eri_gap_row_indicator_bits_entry_source_choice_right. eri_gap_row_indicator_bits_entry_source_choice_right + S (p * S eri_column_row_indicator_bits_entry_source) = q * S i) /\ ~(exists eri_gap_row_indicator_bits_entry_source_choice_left. eri_gap_row_indicator_bits_entry_source_choice_left + S (q * S i) = p * S eri_column_row_indicator_bits_entry_source)))))) - 0011
exact hprefix - 0012
specialize hentry j - 0013
have hstored : exists bit. ((((exists ff_h_row_indicator_bits_stored. ff_h_row_indicator_bits_stored + S (bit) = S ((S (j)) * rc)) /\ exists ff_q_row_indicator_bits_stored. rb = ff_q_row_indicator_bits_stored * S ((S (j)) * rc) + (bit))) /\ (((bit = 0 /\ ((exists eri_gap_row_indicator_bits_choice_left. eri_gap_row_indicator_bits_choice_left + S (q * S i) = p * S j) /\ ~(exists eri_gap_row_indicator_bits_choice_right. eri_gap_row_indicator_bits_choice_right + S (p * S j) = q * S i))) \/ (bit = 1 /\ ((exists eri_gap_row_indicator_bits_choice_right. eri_gap_row_indicator_bits_choice_right + S (p * S j) = q * S i) /\ ~(exists eri_gap_row_indicator_bits_choice_left. eri_gap_row_indicator_bits_choice_left + S (q * S i) = p * S j)))))) - 0014
apply hentry - 0015
exact hj - 0016
cases hstored - 0017
cases hstored_witness - 0018
exists x - 0019
split - 0020
exact hstored_witness_left - 0021
cases hstored_witness_right - 0022
cases hstored_witness_right_left - 0023
left - 0024
exact hstored_witness_right_left_left - 0025
cases hstored_witness_right_right - 0026
right - 0027
exact hstored_witness_right_right_left