Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved.
Exact expanded first-order arithmetic statement
forall p k j ab ac bb bc cb cc L. (((~((L) = 0)) /\ (((exists pfm_leading_normalization_function_first. ((((exists ff_h_pfp_normalization_function_firstsource. ff_h_pfp_normalization_function_firstsource + S (pfm_leading_normalization_function_first) = S ((S (0)) * ac)) /\ exists ff_q_pfp_normalization_function_firstsource. ab = ff_q_pfp_normalization_function_firstsource * S ((S (0)) * ac) + (pfm_leading_normalization_function_first))) /\ ((((~((pfm_leading_normalization_function_first) = 0)) /\ ((((exists pfa_gap_normalization_function_firstinversemultiplicationleft. pfa_gap_normalization_function_firstinversemultiplicationleft + S (pfm_leading_normalization_function_first) = (p)) /\ (((exists pfa_gap_normalization_function_firstinversemultiplicationright. pfa_gap_normalization_function_firstinversemultiplicationright + S (k) = (p)) /\ ((((exists pfa_gap_normalization_function_firstinversemultiplicationresultbound. pfa_gap_normalization_function_firstinversemultiplicationresultbound + S (1) = (p)) /\ ((exists pfa_offset_left_normalization_function_firstinversemultiplicationresultcongruence pfa_offset_right_normalization_function_firstinversemultiplicationresultcongruence. ((pfm_leading_normalization_function_first) * (k)) + (p) * pfa_offset_left_normalization_function_firstinversemultiplicationresultcongruence = (1) + (p) * pfa_offset_right_normalization_function_firstinversemultiplicationresultcongruence))))))))))))))) /\ ((((exists pfa_gap_normalization_function_firstscalescalar. pfa_gap_normalization_function_firstscalescalar + S (k) = (p)) /\ ((forall pfp_index_normalization_function_firstscale. (exists pfa_gap_normalization_function_firstscaleindex. pfa_gap_normalization_function_firstscaleindex + S (pfp_index_normalization_function_firstscale) = (L)) -> exists pfp_source_normalization_function_firstscale pfp_value_normalization_function_firstscale. ((((exists ff_h_pfp_normalization_function_firstscalesource. ff_h_pfp_normalization_function_firstscalesource + S (pfp_source_normalization_function_firstscale) = S ((S (pfp_index_normalization_function_firstscale)) * ac)) /\ exists ff_q_pfp_normalization_function_firstscalesource. ab = ff_q_pfp_normalization_function_firstscalesource * S ((S (pfp_index_normalization_function_firstscale)) * ac) + (pfp_source_normalization_function_firstscale))) /\ (((((exists ff_h_pfp_normalization_function_firstscaletarget. ff_h_pfp_normalization_function_firstscaletarget + S (pfp_value_normalization_function_firstscale) = S ((S (pfp_index_normalization_function_firstscale)) * bc)) /\ exists ff_q_pfp_normalization_function_firstscaletarget. bb = ff_q_pfp_normalization_function_firstscaletarget * S ((S (pfp_index_normalization_function_firstscale)) * bc) + (pfp_value_normalization_function_firstscale))) /\ ((((exists pfa_gap_normalization_function_firstscaleoperationleft. pfa_gap_normalization_function_firstscaleoperationleft + S (k) = (p)) /\ (((exists pfa_gap_normalization_function_firstscaleoperationright. pfa_gap_normalization_function_firstscaleoperationright + S (pfp_source_normalization_function_firstscale) = (p)) /\ ((((exists pfa_gap_normalization_function_firstscaleoperationresultbound. pfa_gap_normalization_function_firstscaleoperationresultbound + S (pfp_value_normalization_function_firstscale) = (p)) /\ ((exists pfa_offset_left_normalization_function_firstscaleoperationresultcongruence pfa_offset_right_normalization_function_firstscaleoperationresultcongruence. ((k) * (pfp_source_normalization_function_firstscale)) + (p) * pfa_offset_left_normalization_function_firstscaleoperationresultcongruence = (pfp_value_normalization_function_firstscale) + (p) * pfa_offset_right_normalization_function_firstscaleoperationresultcongruence)))))))))))))))))))))) -> (((~((L) = 0)) /\ (((exists pfm_leading_normalization_function_second. ((((exists ff_h_pfp_normalization_function_secondsource. ff_h_pfp_normalization_function_secondsource + S (pfm_leading_normalization_function_second) = S ((S (0)) * ac)) /\ exists ff_q_pfp_normalization_function_secondsource. ab = ff_q_pfp_normalization_function_secondsource * S ((S (0)) * ac) + (pfm_leading_normalization_function_second))) /\ ((((~((pfm_leading_normalization_function_second) = 0)) /\ ((((exists pfa_gap_normalization_function_secondinversemultiplicationleft. pfa_gap_normalization_function_secondinversemultiplicationleft + S (pfm_leading_normalization_function_second) = (p)) /\ (((exists pfa_gap_normalization_function_secondinversemultiplicationright. pfa_gap_normalization_function_secondinversemultiplicationright + S (j) = (p)) /\ ((((exists pfa_gap_normalization_function_secondinversemultiplicationresultbound. pfa_gap_normalization_function_secondinversemultiplicationresultbound + S (1) = (p)) /\ ((exists pfa_offset_left_normalization_function_secondinversemultiplicationresultcongruence pfa_offset_right_normalization_function_secondinversemultiplicationresultcongruence. ((pfm_leading_normalization_function_second) * (j)) + (p) * pfa_offset_left_normalization_function_secondinversemultiplicationresultcongruence = (1) + (p) * pfa_offset_right_normalization_function_secondinversemultiplicationresultcongruence))))))))))))))) /\ ((((exists pfa_gap_normalization_function_secondscalescalar. pfa_gap_normalization_function_secondscalescalar + S (j) = (p)) /\ ((forall pfp_index_normalization_function_secondscale. (exists pfa_gap_normalization_function_secondscaleindex. pfa_gap_normalization_function_secondscaleindex + S (pfp_index_normalization_function_secondscale) = (L)) -> exists pfp_source_normalization_function_secondscale pfp_value_normalization_function_secondscale. ((((exists ff_h_pfp_normalization_function_secondscalesource. ff_h_pfp_normalization_function_secondscalesource + S (pfp_source_normalization_function_secondscale) = S ((S (pfp_index_normalization_function_secondscale)) * ac)) /\ exists ff_q_pfp_normalization_function_secondscalesource. ab = ff_q_pfp_normalization_function_secondscalesource * S ((S (pfp_index_normalization_function_secondscale)) * ac) + (pfp_source_normalization_function_secondscale))) /\ (((((exists ff_h_pfp_normalization_function_secondscaletarget. ff_h_pfp_normalization_function_secondscaletarget + S (pfp_value_normalization_function_secondscale) = S ((S (pfp_index_normalization_function_secondscale)) * cc)) /\ exists ff_q_pfp_normalization_function_secondscaletarget. cb = ff_q_pfp_normalization_function_secondscaletarget * S ((S (pfp_index_normalization_function_secondscale)) * cc) + (pfp_value_normalization_function_secondscale))) /\ ((((exists pfa_gap_normalization_function_secondscaleoperationleft. pfa_gap_normalization_function_secondscaleoperationleft + S (j) = (p)) /\ (((exists pfa_gap_normalization_function_secondscaleoperationright. pfa_gap_normalization_function_secondscaleoperationright + S (pfp_source_normalization_function_secondscale) = (p)) /\ ((((exists pfa_gap_normalization_function_secondscaleoperationresultbound. pfa_gap_normalization_function_secondscaleoperationresultbound + S (pfp_value_normalization_function_secondscale) = (p)) /\ ((exists pfa_offset_left_normalization_function_secondscaleoperationresultcongruence pfa_offset_right_normalization_function_secondscaleoperationresultcongruence. ((j) * (pfp_source_normalization_function_secondscale)) + (p) * pfa_offset_left_normalization_function_secondscaleoperationresultcongruence = (pfp_value_normalization_function_secondscale) + (p) * pfa_offset_right_normalization_function_secondscaleoperationresultcongruence)))))))))))))))))))))) -> (forall mdr_i_pfp_normalization_function_result mdr_a_pfp_normalization_function_result. (exists mdr_gap_pfp_normalization_function_resultb. mdr_gap_pfp_normalization_function_resultb + S (mdr_i_pfp_normalization_function_result) = (L)) -> (((exists ff_h_mdr_pfp_normalization_function_resulto. ff_h_mdr_pfp_normalization_function_resulto + S (mdr_a_pfp_normalization_function_result) = S ((S (mdr_i_pfp_normalization_function_result)) * bc)) /\ exists ff_q_mdr_pfp_normalization_function_resulto. bb = ff_q_mdr_pfp_normalization_function_resulto * S ((S (mdr_i_pfp_normalization_function_result)) * bc) + (mdr_a_pfp_normalization_function_result))) -> (((exists ff_h_mdr_pfp_normalization_function_resultn. ff_h_mdr_pfp_normalization_function_resultn + S (mdr_a_pfp_normalization_function_result) = S ((S (mdr_i_pfp_normalization_function_result)) * cc)) /\ exists ff_q_mdr_pfp_normalization_function_resultn. cb = ff_q_mdr_pfp_normalization_function_resultn * S ((S (mdr_i_pfp_normalization_function_result)) * cc) + (mdr_a_pfp_normalization_function_result))))Constructive proof overview
Generated structural guide
Two actual normalizations have the same decoded length-L prefix; beta-code equality is deliberately not asserted.
The unchanged tactic script uses 2 declared prerequisites and contains 45 exact native proof lines.
Alpha v34 checked-use · first admitted v32 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
PQ003D prime_field_polynomial_monic_normalization_scalar_functional prime_field_polynomial_scale_functional 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. This exact body belongs to a complete independently kernel-checked constructive proof bundle and has Alpha checked-use authority; it does not imply 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.
Named ingredients (1)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–12
03Establish heL13–22
Establish this local claim before using it. It is not an additional assumption.
- L13
have he : j=k - L14
specialize prime_field_polynomial_monic_normalization_scalar_functional (p) - L15
specialize prime_field_polynomial_monic_normalization_scalar_functional (j) - L16
specialize prime_field_polynomial_monic_normalization_scalar_functional (k) - L17
specialize prime_field_polynomial_monic_normalization_scalar_functional (ab) - L18
specialize prime_field_polynomial_monic_normalization_scalar_functional (ac) - L19
specialize prime_field_polynomial_monic_normalization_scalar_functional (cb) - L20
specialize prime_field_polynomial_monic_normalization_scalar_functional (cc) - L21
specialize prime_field_polynomial_monic_normalization_scalar_functional (bb) - L22
specialize prime_field_polynomial_monic_normalization_scalar_functional (bc)
04Use earlier factsL23–26
05Separate the logical casesL27–30
06Calculate and transport equalitiesL31–33
07Use earlier factsL34–43
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L34
specialize prime_field_polynomial_scale_functional (p) - L35
specialize prime_field_polynomial_scale_functional (k) - L36
specialize prime_field_polynomial_scale_functional (ab) - L37
specialize prime_field_polynomial_scale_functional (ac) - L38
specialize prime_field_polynomial_scale_functional (bb) - L39
specialize prime_field_polynomial_scale_functional (bc) - L40
specialize prime_field_polynomial_scale_functional (cb) - L41
specialize prime_field_polynomial_scale_functional (cc) - L42
specialize prime_field_polynomial_scale_functional (L) - L43
apply prime_field_polynomial_scale_functional
Original exact command ledger · 45 lines
- 0001
intro p - 0002
intro k - 0003
intro j - 0004
intro ab - 0005
intro ac - 0006
intro bb - 0007
intro bc - 0008
intro cb - 0009
intro cc - 0010
intro L - 0011
intro hfirst - 0012
intro hsecond - 0013
have he : j=k - 0014
specialize prime_field_polynomial_monic_normalization_scalar_functional (p) - 0015
specialize prime_field_polynomial_monic_normalization_scalar_functional (j) - 0016
specialize prime_field_polynomial_monic_normalization_scalar_functional (k) - 0017
specialize prime_field_polynomial_monic_normalization_scalar_functional (ab) - 0018
specialize prime_field_polynomial_monic_normalization_scalar_functional (ac) - 0019
specialize prime_field_polynomial_monic_normalization_scalar_functional (cb) - 0020
specialize prime_field_polynomial_monic_normalization_scalar_functional (cc) - 0021
specialize prime_field_polynomial_monic_normalization_scalar_functional (bb) - 0022
specialize prime_field_polynomial_monic_normalization_scalar_functional (bc) - 0023
specialize prime_field_polynomial_monic_normalization_scalar_functional (L) - 0024
apply prime_field_polynomial_monic_normalization_scalar_functional - 0025
exact hsecond - 0026
exact hfirst - 0027
cases hfirst - 0028
cases hfirst_right - 0029
cases hsecond - 0030
cases hsecond_right - 0031
rewrite he at hsecond_right_right - 0032
rewrite he at hsecond_right_right - 0033
rewrite he at hsecond_right_right - 0034
specialize prime_field_polynomial_scale_functional (p) - 0035
specialize prime_field_polynomial_scale_functional (k) - 0036
specialize prime_field_polynomial_scale_functional (ab) - 0037
specialize prime_field_polynomial_scale_functional (ac) - 0038
specialize prime_field_polynomial_scale_functional (bb) - 0039
specialize prime_field_polynomial_scale_functional (bc) - 0040
specialize prime_field_polynomial_scale_functional (cb) - 0041
specialize prime_field_polynomial_scale_functional (cc) - 0042
specialize prime_field_polynomial_scale_functional (L) - 0043
apply prime_field_polynomial_scale_functional - 0044
exact hfirst_right_right - 0045
exact hsecond_right_right