GC0007

crt_merge_compatible_prefix_drop_last

Alpha v34 independently verified · alpha_closed; checked-use authorized; not Stable

The exact operational generalized-CRT merge invariant restricts to any predecessor prefix.

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 original first-admission records.

Exact expanded first-order arithmetic statement

forall r s b c l. (forall gcomp_merge_index_merge_drop_source gcomp_merge_solution_merge_drop_source gcomp_merge_lcm_merge_drop_source gcomp_merge_residue_merge_drop_source gcomp_merge_modulus_merge_drop_source gcomp_merge_gcd_merge_drop_source. (exists ff_lt_gcrt_merge_drop_source_bound. ff_lt_gcrt_merge_drop_source_bound + S gcomp_merge_index_merge_drop_source = S l) -> (((forall gcrt_common_index_merge_drop_source_lcm_own gcrt_common_modulus_merge_drop_source_lcm_own. (exists ff_lt_gcrt_merge_drop_source_lcm_own_bound. ff_lt_gcrt_merge_drop_source_lcm_own_bound + S gcrt_common_index_merge_drop_source_lcm_own = gcomp_merge_index_merge_drop_source) -> (((exists ff_h_gcrt_merge_drop_source_lcm_own_entry. ff_h_gcrt_merge_drop_source_lcm_own_entry + S (gcrt_common_modulus_merge_drop_source_lcm_own) = S ((S (gcrt_common_index_merge_drop_source_lcm_own)) * c)) /\ exists ff_q_gcrt_merge_drop_source_lcm_own_entry. b = ff_q_gcrt_merge_drop_source_lcm_own_entry * S ((S (gcrt_common_index_merge_drop_source_lcm_own)) * c) + (gcrt_common_modulus_merge_drop_source_lcm_own))) -> exists gcrt_common_quotient_merge_drop_source_lcm_own. gcomp_merge_lcm_merge_drop_source = gcrt_common_modulus_merge_drop_source_lcm_own * gcrt_common_quotient_merge_drop_source_lcm_own) /\ forall gcrt_lcm_common_merge_drop_source_lcm. (forall gcrt_common_index_merge_drop_source_lcm_other gcrt_common_modulus_merge_drop_source_lcm_other. (exists ff_lt_gcrt_merge_drop_source_lcm_other_bound. ff_lt_gcrt_merge_drop_source_lcm_other_bound + S gcrt_common_index_merge_drop_source_lcm_other = gcomp_merge_index_merge_drop_source) -> (((exists ff_h_gcrt_merge_drop_source_lcm_other_entry. ff_h_gcrt_merge_drop_source_lcm_other_entry + S (gcrt_common_modulus_merge_drop_source_lcm_other) = S ((S (gcrt_common_index_merge_drop_source_lcm_other)) * c)) /\ exists ff_q_gcrt_merge_drop_source_lcm_other_entry. b = ff_q_gcrt_merge_drop_source_lcm_other_entry * S ((S (gcrt_common_index_merge_drop_source_lcm_other)) * c) + (gcrt_common_modulus_merge_drop_source_lcm_other))) -> exists gcrt_common_quotient_merge_drop_source_lcm_other. gcrt_lcm_common_merge_drop_source_lcm = gcrt_common_modulus_merge_drop_source_lcm_other * gcrt_common_quotient_merge_drop_source_lcm_other) -> exists gcrt_lcm_quotient_merge_drop_source_lcm. gcrt_lcm_common_merge_drop_source_lcm = gcomp_merge_lcm_merge_drop_source * gcrt_lcm_quotient_merge_drop_source_lcm)) -> (forall gcrt_solution_index_merge_drop_source_solution gcrt_solution_residue_merge_drop_source_solution gcrt_solution_modulus_merge_drop_source_solution. (exists ff_lt_gcrt_merge_drop_source_solution_bound. ff_lt_gcrt_merge_drop_source_solution_bound + S gcrt_solution_index_merge_drop_source_solution = gcomp_merge_index_merge_drop_source) -> (((exists ff_h_gcrt_merge_drop_source_solution_residue. ff_h_gcrt_merge_drop_source_solution_residue + S (gcrt_solution_residue_merge_drop_source_solution) = S ((S (gcrt_solution_index_merge_drop_source_solution)) * s)) /\ exists ff_q_gcrt_merge_drop_source_solution_residue. r = ff_q_gcrt_merge_drop_source_solution_residue * S ((S (gcrt_solution_index_merge_drop_source_solution)) * s) + (gcrt_solution_residue_merge_drop_source_solution))) -> (((exists ff_h_gcrt_merge_drop_source_solution_modulus. ff_h_gcrt_merge_drop_source_solution_modulus + S (gcrt_solution_modulus_merge_drop_source_solution) = S ((S (gcrt_solution_index_merge_drop_source_solution)) * c)) /\ exists ff_q_gcrt_merge_drop_source_solution_modulus. b = ff_q_gcrt_merge_drop_source_solution_modulus * S ((S (gcrt_solution_index_merge_drop_source_solution)) * c) + (gcrt_solution_modulus_merge_drop_source_solution))) -> (exists hgcrt_mod_left_gcrt_merge_drop_source_solution_congruence hgcrt_mod_right_gcrt_merge_drop_source_solution_congruence. gcomp_merge_solution_merge_drop_source + gcrt_solution_modulus_merge_drop_source_solution * hgcrt_mod_left_gcrt_merge_drop_source_solution_congruence = gcrt_solution_residue_merge_drop_source_solution + gcrt_solution_modulus_merge_drop_source_solution * hgcrt_mod_right_gcrt_merge_drop_source_solution_congruence)) -> (((exists ff_h_gcrt_merge_drop_source_residue. ff_h_gcrt_merge_drop_source_residue + S (gcomp_merge_residue_merge_drop_source) = S ((S (gcomp_merge_index_merge_drop_source)) * s)) /\ exists ff_q_gcrt_merge_drop_source_residue. r = ff_q_gcrt_merge_drop_source_residue * S ((S (gcomp_merge_index_merge_drop_source)) * s) + (gcomp_merge_residue_merge_drop_source))) -> (((exists ff_h_gcrt_merge_drop_source_modulus. ff_h_gcrt_merge_drop_source_modulus + S (gcomp_merge_modulus_merge_drop_source) = S ((S (gcomp_merge_index_merge_drop_source)) * c)) /\ exists ff_q_gcrt_merge_drop_source_modulus. b = ff_q_gcrt_merge_drop_source_modulus * S ((S (gcomp_merge_index_merge_drop_source)) * c) + (gcomp_merge_modulus_merge_drop_source))) -> ((((exists hag_left_factor_gcomp_merge_drop_source_gcd. gcomp_merge_lcm_merge_drop_source = gcomp_merge_gcd_merge_drop_source * hag_left_factor_gcomp_merge_drop_source_gcd) /\ (exists hag_right_factor_gcomp_merge_drop_source_gcd. gcomp_merge_modulus_merge_drop_source = gcomp_merge_gcd_merge_drop_source * hag_right_factor_gcomp_merge_drop_source_gcd)) /\ forall hag_divisor_gcomp_merge_drop_source_gcd. (exists hag_common_left_gcomp_merge_drop_source_gcd. gcomp_merge_lcm_merge_drop_source = hag_divisor_gcomp_merge_drop_source_gcd * hag_common_left_gcomp_merge_drop_source_gcd) -> (exists hag_common_right_gcomp_merge_drop_source_gcd. gcomp_merge_modulus_merge_drop_source = hag_divisor_gcomp_merge_drop_source_gcd * hag_common_right_gcomp_merge_drop_source_gcd) -> exists hag_greatest_factor_gcomp_merge_drop_source_gcd. gcomp_merge_gcd_merge_drop_source = hag_divisor_gcomp_merge_drop_source_gcd * hag_greatest_factor_gcomp_merge_drop_source_gcd)) -> (exists hgcrt_mod_left_gcrt_merge_drop_source_result hgcrt_mod_right_gcrt_merge_drop_source_result. gcomp_merge_solution_merge_drop_source + gcomp_merge_gcd_merge_drop_source * hgcrt_mod_left_gcrt_merge_drop_source_result = gcomp_merge_residue_merge_drop_source + gcomp_merge_gcd_merge_drop_source * hgcrt_mod_right_gcrt_merge_drop_source_result)) -> (forall gcomp_merge_index_merge_drop_result gcomp_merge_solution_merge_drop_result gcomp_merge_lcm_merge_drop_result gcomp_merge_residue_merge_drop_result gcomp_merge_modulus_merge_drop_result gcomp_merge_gcd_merge_drop_result. (exists ff_lt_gcrt_merge_drop_result_bound. ff_lt_gcrt_merge_drop_result_bound + S gcomp_merge_index_merge_drop_result = l) -> (((forall gcrt_common_index_merge_drop_result_lcm_own gcrt_common_modulus_merge_drop_result_lcm_own. (exists ff_lt_gcrt_merge_drop_result_lcm_own_bound. ff_lt_gcrt_merge_drop_result_lcm_own_bound + S gcrt_common_index_merge_drop_result_lcm_own = gcomp_merge_index_merge_drop_result) -> (((exists ff_h_gcrt_merge_drop_result_lcm_own_entry. ff_h_gcrt_merge_drop_result_lcm_own_entry + S (gcrt_common_modulus_merge_drop_result_lcm_own) = S ((S (gcrt_common_index_merge_drop_result_lcm_own)) * c)) /\ exists ff_q_gcrt_merge_drop_result_lcm_own_entry. b = ff_q_gcrt_merge_drop_result_lcm_own_entry * S ((S (gcrt_common_index_merge_drop_result_lcm_own)) * c) + (gcrt_common_modulus_merge_drop_result_lcm_own))) -> exists gcrt_common_quotient_merge_drop_result_lcm_own. gcomp_merge_lcm_merge_drop_result = gcrt_common_modulus_merge_drop_result_lcm_own * gcrt_common_quotient_merge_drop_result_lcm_own) /\ forall gcrt_lcm_common_merge_drop_result_lcm. (forall gcrt_common_index_merge_drop_result_lcm_other gcrt_common_modulus_merge_drop_result_lcm_other. (exists ff_lt_gcrt_merge_drop_result_lcm_other_bound. ff_lt_gcrt_merge_drop_result_lcm_other_bound + S gcrt_common_index_merge_drop_result_lcm_other = gcomp_merge_index_merge_drop_result) -> (((exists ff_h_gcrt_merge_drop_result_lcm_other_entry. ff_h_gcrt_merge_drop_result_lcm_other_entry + S (gcrt_common_modulus_merge_drop_result_lcm_other) = S ((S (gcrt_common_index_merge_drop_result_lcm_other)) * c)) /\ exists ff_q_gcrt_merge_drop_result_lcm_other_entry. b = ff_q_gcrt_merge_drop_result_lcm_other_entry * S ((S (gcrt_common_index_merge_drop_result_lcm_other)) * c) + (gcrt_common_modulus_merge_drop_result_lcm_other))) -> exists gcrt_common_quotient_merge_drop_result_lcm_other. gcrt_lcm_common_merge_drop_result_lcm = gcrt_common_modulus_merge_drop_result_lcm_other * gcrt_common_quotient_merge_drop_result_lcm_other) -> exists gcrt_lcm_quotient_merge_drop_result_lcm. gcrt_lcm_common_merge_drop_result_lcm = gcomp_merge_lcm_merge_drop_result * gcrt_lcm_quotient_merge_drop_result_lcm)) -> (forall gcrt_solution_index_merge_drop_result_solution gcrt_solution_residue_merge_drop_result_solution gcrt_solution_modulus_merge_drop_result_solution. (exists ff_lt_gcrt_merge_drop_result_solution_bound. ff_lt_gcrt_merge_drop_result_solution_bound + S gcrt_solution_index_merge_drop_result_solution = gcomp_merge_index_merge_drop_result) -> (((exists ff_h_gcrt_merge_drop_result_solution_residue. ff_h_gcrt_merge_drop_result_solution_residue + S (gcrt_solution_residue_merge_drop_result_solution) = S ((S (gcrt_solution_index_merge_drop_result_solution)) * s)) /\ exists ff_q_gcrt_merge_drop_result_solution_residue. r = ff_q_gcrt_merge_drop_result_solution_residue * S ((S (gcrt_solution_index_merge_drop_result_solution)) * s) + (gcrt_solution_residue_merge_drop_result_solution))) -> (((exists ff_h_gcrt_merge_drop_result_solution_modulus. ff_h_gcrt_merge_drop_result_solution_modulus + S (gcrt_solution_modulus_merge_drop_result_solution) = S ((S (gcrt_solution_index_merge_drop_result_solution)) * c)) /\ exists ff_q_gcrt_merge_drop_result_solution_modulus. b = ff_q_gcrt_merge_drop_result_solution_modulus * S ((S (gcrt_solution_index_merge_drop_result_solution)) * c) + (gcrt_solution_modulus_merge_drop_result_solution))) -> (exists hgcrt_mod_left_gcrt_merge_drop_result_solution_congruence hgcrt_mod_right_gcrt_merge_drop_result_solution_congruence. gcomp_merge_solution_merge_drop_result + gcrt_solution_modulus_merge_drop_result_solution * hgcrt_mod_left_gcrt_merge_drop_result_solution_congruence = gcrt_solution_residue_merge_drop_result_solution + gcrt_solution_modulus_merge_drop_result_solution * hgcrt_mod_right_gcrt_merge_drop_result_solution_congruence)) -> (((exists ff_h_gcrt_merge_drop_result_residue. ff_h_gcrt_merge_drop_result_residue + S (gcomp_merge_residue_merge_drop_result) = S ((S (gcomp_merge_index_merge_drop_result)) * s)) /\ exists ff_q_gcrt_merge_drop_result_residue. r = ff_q_gcrt_merge_drop_result_residue * S ((S (gcomp_merge_index_merge_drop_result)) * s) + (gcomp_merge_residue_merge_drop_result))) -> (((exists ff_h_gcrt_merge_drop_result_modulus. ff_h_gcrt_merge_drop_result_modulus + S (gcomp_merge_modulus_merge_drop_result) = S ((S (gcomp_merge_index_merge_drop_result)) * c)) /\ exists ff_q_gcrt_merge_drop_result_modulus. b = ff_q_gcrt_merge_drop_result_modulus * S ((S (gcomp_merge_index_merge_drop_result)) * c) + (gcomp_merge_modulus_merge_drop_result))) -> ((((exists hag_left_factor_gcomp_merge_drop_result_gcd. gcomp_merge_lcm_merge_drop_result = gcomp_merge_gcd_merge_drop_result * hag_left_factor_gcomp_merge_drop_result_gcd) /\ (exists hag_right_factor_gcomp_merge_drop_result_gcd. gcomp_merge_modulus_merge_drop_result = gcomp_merge_gcd_merge_drop_result * hag_right_factor_gcomp_merge_drop_result_gcd)) /\ forall hag_divisor_gcomp_merge_drop_result_gcd. (exists hag_common_left_gcomp_merge_drop_result_gcd. gcomp_merge_lcm_merge_drop_result = hag_divisor_gcomp_merge_drop_result_gcd * hag_common_left_gcomp_merge_drop_result_gcd) -> (exists hag_common_right_gcomp_merge_drop_result_gcd. gcomp_merge_modulus_merge_drop_result = hag_divisor_gcomp_merge_drop_result_gcd * hag_common_right_gcomp_merge_drop_result_gcd) -> exists hag_greatest_factor_gcomp_merge_drop_result_gcd. gcomp_merge_gcd_merge_drop_result = hag_divisor_gcomp_merge_drop_result_gcd * hag_greatest_factor_gcomp_merge_drop_result_gcd)) -> (exists hgcrt_mod_left_gcrt_merge_drop_result_result hgcrt_mod_right_gcrt_merge_drop_result_result. gcomp_merge_solution_merge_drop_result + gcomp_merge_gcd_merge_drop_result * hgcrt_mod_left_gcrt_merge_drop_result_result = gcomp_merge_residue_merge_drop_result + gcomp_merge_gcd_merge_drop_result * hgcrt_mod_right_gcrt_merge_drop_result_result))

Constructive proof overview

Generated structural guide

The exact operational generalized-CRT merge invariant restricts to any predecessor prefix.

The unchanged tactic script uses 1 declared prerequisite and contains 34 exact native proof lines.

Alpha v34 checked-use · first admitted v25 · independently kernel and Lean verified; not Stable

Proof neighborhood

Direct dependencies

le_succ Stable theorem; checked-use authorized

Direct 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

34 script commands · 4 reading checkpoints · 0 local claims

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–10

Work with arbitrary variables or the premises of the current implication.

  1. L1
    intro r
  2. L2
    intro s
  3. L3
    intro b
  4. L4
    intro c
  5. L5
    intro l
  6. L6
    intro hmerge
  7. L7
    intro i
  8. L8
    intro x
  9. L9
    intro M
  10. L10
    intro a
02Fix variables and assumptionsL11–18

Work with arbitrary variables or the premises of the current implication.

  1. L11
    intro n
  2. L12
    intro g
  3. L13
    intro hi
  4. L14
    intro hlcm
  5. L15
    intro hx
  6. L16
    intro ha
  7. L17
    intro hn
  8. L18
    intro hg
03Use earlier factsL19–28

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L19
    specialize hmerge i
  2. L20
    specialize hmerge x
  3. L21
    specialize hmerge M
  4. L22
    specialize hmerge a
  5. L23
    specialize hmerge n
  6. L24
    specialize hmerge g
  7. L25
    apply hmerge
  8. L26
    specialize le_succ (S i)
  9. L27
    specialize le_succ l
  10. L28
    apply le_succ
04Use earlier factsL29–34

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L29
    exact hi
  2. L30
    exact hlcm
  3. L31
    exact hx
  4. L32
    exact ha
  5. L33
    exact hn
  6. L34
    exact hg

Library-wide reading audit

Original exact command ledger · 34 lines
  1. 0001intro r
  2. 0002intro s
  3. 0003intro b
  4. 0004intro c
  5. 0005intro l
  6. 0006intro hmerge
  7. 0007intro i
  8. 0008intro x
  9. 0009intro M
  10. 0010intro a
  11. 0011intro n
  12. 0012intro g
  13. 0013intro hi
  14. 0014intro hlcm
  15. 0015intro hx
  16. 0016intro ha
  17. 0017intro hn
  18. 0018intro hg
  19. 0019specialize hmerge i
  20. 0020specialize hmerge x
  21. 0021specialize hmerge M
  22. 0022specialize hmerge a
  23. 0023specialize hmerge n
  24. 0024specialize hmerge g
  25. 0025apply hmerge
  26. 0026specialize le_succ (S i)
  27. 0027specialize le_succ l
  28. 0028apply le_succ
  29. 0029exact hi
  30. 0030exact hlcm
  31. 0031exact hx
  32. 0032exact ha
  33. 0033exact hn
  34. 0034exact hg

Separate complete second-wave branches: Full G011 proof · Alpha v27.