GC0007

crt_merge_compatible_prefix_drop_last

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

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

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.

Historical partial components only: this chapter proves canonical solutions under successive-merge compatibility and in the pairwise-compatible dominating-last case. G011 is now closed in the separate Alpha-v27 generalized-crt branch for arbitrary pairwise-compatible finite lists, including noncoprime moduli. Full G011 proof · Alpha v27

Exact theorem in conservative defined notation

∀ r. ∀ s. ∀ b. ∀ c. ∀ l. CRTMergeCompatiblePrefix(r,s,b,c,S l)CRTMergeCompatiblePrefix(r,s,b,c,l)

Every linked abbreviation expands hygienically to the identical original native formula.

Definition DAG

Actual proof prerequisites

le_succ · checked external prerequisite
Original expanded first-order 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))

Complete unchanged native tactic proof

All 34 lines are the exact independently kernel-checked original script.

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.

Definition notation is shown below. Open the paired exact edition for the original native formulas. Source pairing is not a new equivalence certificate.

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 defined 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