DC0002

dirichlet_convolution_entry_from_quotient

A positive divisor, actual complementary quotient and actual signed product justify the retained summand.

Alpha v34 checked-use · first admitted v31 · 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.

Each retained summand has a witnessed n=d*q and actual signed multiplication. Zero and nondivisors contribute zero. Input and output values at zero are unrestricted; uniqueness is for positive represented values. The separate inverse family proves the unit-at-one criterion. Full G009 multiplicative-function closure is now admitted in the separate Alpha-v32 multiplicative-convolution family.

Exact theorem in conservative defined notation

∀ F. ∀ G. ∀ n. ∀ d. ∀ q. ∀ a. ∀ b. ∀ z. ¬d = 0 → n = d · q → ArithAt(F,d,a)ArithAt(G,q,b)SignedMul(a,b,z)DirichletEntry(F,G,n,d,z)

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

Definition DAG

Actual proof prerequisites

none
Original expanded first-order statement
forall F G n d q a b z. ~(d=0) -> n=d*q -> (exists dst_positive_code_keep_left dst_positive_scale_keep_left dst_negative_code_keep_left dst_negative_scale_keep_left dst_positive_keep_left dst_negative_keep_left. (((F) = (((((dst_positive_code_keep_left) + (dst_positive_scale_keep_left)) * S ((dst_positive_code_keep_left) + (dst_positive_scale_keep_left)) + ((dst_positive_scale_keep_left) + (dst_positive_scale_keep_left))) + (((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) * S ((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) + ((dst_negative_scale_keep_left) + (dst_negative_scale_keep_left)))) * S ((((dst_positive_code_keep_left) + (dst_positive_scale_keep_left)) * S ((dst_positive_code_keep_left) + (dst_positive_scale_keep_left)) + ((dst_positive_scale_keep_left) + (dst_positive_scale_keep_left))) + (((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) * S ((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) + ((dst_negative_scale_keep_left) + (dst_negative_scale_keep_left)))) + ((((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) * S ((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) + ((dst_negative_scale_keep_left) + (dst_negative_scale_keep_left))) + (((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) * S ((dst_negative_code_keep_left) + (dst_negative_scale_keep_left)) + ((dst_negative_scale_keep_left) + (dst_negative_scale_keep_left)))))) /\ (((((exists ff_h_pvs_keep_leftpositive. ff_h_pvs_keep_leftpositive + S (dst_positive_keep_left) = S ((S (d)) * dst_positive_scale_keep_left)) /\ exists ff_q_pvs_keep_leftpositive. dst_positive_code_keep_left = ff_q_pvs_keep_leftpositive * S ((S (d)) * dst_positive_scale_keep_left) + (dst_positive_keep_left))) /\ (((((exists ff_h_pvs_keep_leftnegative. ff_h_pvs_keep_leftnegative + S (dst_negative_keep_left) = S ((S (d)) * dst_negative_scale_keep_left)) /\ exists ff_q_pvs_keep_leftnegative. dst_negative_code_keep_left = ff_q_pvs_keep_leftnegative * S ((S (d)) * dst_negative_scale_keep_left) + (dst_negative_keep_left))) /\ (exists ge_balance_positive_keep_leftvalue ge_balance_negative_keep_leftvalue. (((((a) = 2 * (ge_balance_positive_keep_leftvalue) /\ (ge_balance_negative_keep_leftvalue) = 0) \/ exists ge_signed_half_keep_leftvaluedecode. (((a) = 2 * ge_signed_half_keep_leftvaluedecode + 1 /\ (ge_balance_positive_keep_leftvalue) = 0) /\ (ge_balance_negative_keep_leftvalue) = S ge_signed_half_keep_leftvaluedecode))) /\ ((dst_positive_keep_left) + ge_balance_negative_keep_leftvalue = (dst_negative_keep_left) + ge_balance_positive_keep_leftvalue))))))))) -> (exists dst_positive_code_keep_right dst_positive_scale_keep_right dst_negative_code_keep_right dst_negative_scale_keep_right dst_positive_keep_right dst_negative_keep_right. (((G) = (((((dst_positive_code_keep_right) + (dst_positive_scale_keep_right)) * S ((dst_positive_code_keep_right) + (dst_positive_scale_keep_right)) + ((dst_positive_scale_keep_right) + (dst_positive_scale_keep_right))) + (((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) * S ((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) + ((dst_negative_scale_keep_right) + (dst_negative_scale_keep_right)))) * S ((((dst_positive_code_keep_right) + (dst_positive_scale_keep_right)) * S ((dst_positive_code_keep_right) + (dst_positive_scale_keep_right)) + ((dst_positive_scale_keep_right) + (dst_positive_scale_keep_right))) + (((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) * S ((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) + ((dst_negative_scale_keep_right) + (dst_negative_scale_keep_right)))) + ((((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) * S ((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) + ((dst_negative_scale_keep_right) + (dst_negative_scale_keep_right))) + (((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) * S ((dst_negative_code_keep_right) + (dst_negative_scale_keep_right)) + ((dst_negative_scale_keep_right) + (dst_negative_scale_keep_right)))))) /\ (((((exists ff_h_pvs_keep_rightpositive. ff_h_pvs_keep_rightpositive + S (dst_positive_keep_right) = S ((S (q)) * dst_positive_scale_keep_right)) /\ exists ff_q_pvs_keep_rightpositive. dst_positive_code_keep_right = ff_q_pvs_keep_rightpositive * S ((S (q)) * dst_positive_scale_keep_right) + (dst_positive_keep_right))) /\ (((((exists ff_h_pvs_keep_rightnegative. ff_h_pvs_keep_rightnegative + S (dst_negative_keep_right) = S ((S (q)) * dst_negative_scale_keep_right)) /\ exists ff_q_pvs_keep_rightnegative. dst_negative_code_keep_right = ff_q_pvs_keep_rightnegative * S ((S (q)) * dst_negative_scale_keep_right) + (dst_negative_keep_right))) /\ (exists ge_balance_positive_keep_rightvalue ge_balance_negative_keep_rightvalue. (((((b) = 2 * (ge_balance_positive_keep_rightvalue) /\ (ge_balance_negative_keep_rightvalue) = 0) \/ exists ge_signed_half_keep_rightvaluedecode. (((b) = 2 * ge_signed_half_keep_rightvaluedecode + 1 /\ (ge_balance_positive_keep_rightvalue) = 0) /\ (ge_balance_negative_keep_rightvalue) = S ge_signed_half_keep_rightvaluedecode))) /\ ((dst_positive_keep_right) + ge_balance_negative_keep_rightvalue = (dst_negative_keep_right) + ge_balance_positive_keep_rightvalue))))))))) -> (exists sto_ap_keep_product sto_an_keep_product sto_bp_keep_product sto_bn_keep_product sto_cp_keep_product sto_cn_keep_product. (((((a) = 2 * (sto_ap_keep_product) /\ (sto_an_keep_product) = 0) \/ exists ge_signed_half_keep_productleft. (((a) = 2 * ge_signed_half_keep_productleft + 1 /\ (sto_ap_keep_product) = 0) /\ (sto_an_keep_product) = S ge_signed_half_keep_productleft))) /\ ((((((b) = 2 * (sto_bp_keep_product) /\ (sto_bn_keep_product) = 0) \/ exists ge_signed_half_keep_productright. (((b) = 2 * ge_signed_half_keep_productright + 1 /\ (sto_bp_keep_product) = 0) /\ (sto_bn_keep_product) = S ge_signed_half_keep_productright))) /\ ((((((z) = 2 * (sto_cp_keep_product) /\ (sto_cn_keep_product) = 0) \/ exists ge_signed_half_keep_productoutput. (((z) = 2 * ge_signed_half_keep_productoutput + 1 /\ (sto_cp_keep_product) = 0) /\ (sto_cn_keep_product) = S ge_signed_half_keep_productoutput))) /\ ((sto_ap_keep_product * sto_bp_keep_product + sto_an_keep_product * sto_bn_keep_product) + sto_cn_keep_product = (sto_ap_keep_product * sto_bn_keep_product + sto_an_keep_product * sto_bp_keep_product) + sto_cp_keep_product))))))) -> ((((~((d)=0)) /\ (exists dc_quotient_keep_result dc_left_keep_result dc_right_keep_result. (((n)=(d)*dc_quotient_keep_result) /\ (((exists dst_positive_code_keep_resultleft dst_positive_scale_keep_resultleft dst_negative_code_keep_resultleft dst_negative_scale_keep_resultleft dst_positive_keep_resultleft dst_negative_keep_resultleft. (((F) = (((((dst_positive_code_keep_resultleft) + (dst_positive_scale_keep_resultleft)) * S ((dst_positive_code_keep_resultleft) + (dst_positive_scale_keep_resultleft)) + ((dst_positive_scale_keep_resultleft) + (dst_positive_scale_keep_resultleft))) + (((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) * S ((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) + ((dst_negative_scale_keep_resultleft) + (dst_negative_scale_keep_resultleft)))) * S ((((dst_positive_code_keep_resultleft) + (dst_positive_scale_keep_resultleft)) * S ((dst_positive_code_keep_resultleft) + (dst_positive_scale_keep_resultleft)) + ((dst_positive_scale_keep_resultleft) + (dst_positive_scale_keep_resultleft))) + (((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) * S ((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) + ((dst_negative_scale_keep_resultleft) + (dst_negative_scale_keep_resultleft)))) + ((((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) * S ((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) + ((dst_negative_scale_keep_resultleft) + (dst_negative_scale_keep_resultleft))) + (((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) * S ((dst_negative_code_keep_resultleft) + (dst_negative_scale_keep_resultleft)) + ((dst_negative_scale_keep_resultleft) + (dst_negative_scale_keep_resultleft)))))) /\ (((((exists ff_h_pvs_keep_resultleftpositive. ff_h_pvs_keep_resultleftpositive + S (dst_positive_keep_resultleft) = S ((S (d)) * dst_positive_scale_keep_resultleft)) /\ exists ff_q_pvs_keep_resultleftpositive. dst_positive_code_keep_resultleft = ff_q_pvs_keep_resultleftpositive * S ((S (d)) * dst_positive_scale_keep_resultleft) + (dst_positive_keep_resultleft))) /\ (((((exists ff_h_pvs_keep_resultleftnegative. ff_h_pvs_keep_resultleftnegative + S (dst_negative_keep_resultleft) = S ((S (d)) * dst_negative_scale_keep_resultleft)) /\ exists ff_q_pvs_keep_resultleftnegative. dst_negative_code_keep_resultleft = ff_q_pvs_keep_resultleftnegative * S ((S (d)) * dst_negative_scale_keep_resultleft) + (dst_negative_keep_resultleft))) /\ (exists ge_balance_positive_keep_resultleftvalue ge_balance_negative_keep_resultleftvalue. (((((dc_left_keep_result) = 2 * (ge_balance_positive_keep_resultleftvalue) /\ (ge_balance_negative_keep_resultleftvalue) = 0) \/ exists ge_signed_half_keep_resultleftvaluedecode. (((dc_left_keep_result) = 2 * ge_signed_half_keep_resultleftvaluedecode + 1 /\ (ge_balance_positive_keep_resultleftvalue) = 0) /\ (ge_balance_negative_keep_resultleftvalue) = S ge_signed_half_keep_resultleftvaluedecode))) /\ ((dst_positive_keep_resultleft) + ge_balance_negative_keep_resultleftvalue = (dst_negative_keep_resultleft) + ge_balance_positive_keep_resultleftvalue))))))))) /\ (((exists dst_positive_code_keep_resultright dst_positive_scale_keep_resultright dst_negative_code_keep_resultright dst_negative_scale_keep_resultright dst_positive_keep_resultright dst_negative_keep_resultright. (((G) = (((((dst_positive_code_keep_resultright) + (dst_positive_scale_keep_resultright)) * S ((dst_positive_code_keep_resultright) + (dst_positive_scale_keep_resultright)) + ((dst_positive_scale_keep_resultright) + (dst_positive_scale_keep_resultright))) + (((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) * S ((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) + ((dst_negative_scale_keep_resultright) + (dst_negative_scale_keep_resultright)))) * S ((((dst_positive_code_keep_resultright) + (dst_positive_scale_keep_resultright)) * S ((dst_positive_code_keep_resultright) + (dst_positive_scale_keep_resultright)) + ((dst_positive_scale_keep_resultright) + (dst_positive_scale_keep_resultright))) + (((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) * S ((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) + ((dst_negative_scale_keep_resultright) + (dst_negative_scale_keep_resultright)))) + ((((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) * S ((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) + ((dst_negative_scale_keep_resultright) + (dst_negative_scale_keep_resultright))) + (((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) * S ((dst_negative_code_keep_resultright) + (dst_negative_scale_keep_resultright)) + ((dst_negative_scale_keep_resultright) + (dst_negative_scale_keep_resultright)))))) /\ (((((exists ff_h_pvs_keep_resultrightpositive. ff_h_pvs_keep_resultrightpositive + S (dst_positive_keep_resultright) = S ((S (dc_quotient_keep_result)) * dst_positive_scale_keep_resultright)) /\ exists ff_q_pvs_keep_resultrightpositive. dst_positive_code_keep_resultright = ff_q_pvs_keep_resultrightpositive * S ((S (dc_quotient_keep_result)) * dst_positive_scale_keep_resultright) + (dst_positive_keep_resultright))) /\ (((((exists ff_h_pvs_keep_resultrightnegative. ff_h_pvs_keep_resultrightnegative + S (dst_negative_keep_resultright) = S ((S (dc_quotient_keep_result)) * dst_negative_scale_keep_resultright)) /\ exists ff_q_pvs_keep_resultrightnegative. dst_negative_code_keep_resultright = ff_q_pvs_keep_resultrightnegative * S ((S (dc_quotient_keep_result)) * dst_negative_scale_keep_resultright) + (dst_negative_keep_resultright))) /\ (exists ge_balance_positive_keep_resultrightvalue ge_balance_negative_keep_resultrightvalue. (((((dc_right_keep_result) = 2 * (ge_balance_positive_keep_resultrightvalue) /\ (ge_balance_negative_keep_resultrightvalue) = 0) \/ exists ge_signed_half_keep_resultrightvaluedecode. (((dc_right_keep_result) = 2 * ge_signed_half_keep_resultrightvaluedecode + 1 /\ (ge_balance_positive_keep_resultrightvalue) = 0) /\ (ge_balance_negative_keep_resultrightvalue) = S ge_signed_half_keep_resultrightvaluedecode))) /\ ((dst_positive_keep_resultright) + ge_balance_negative_keep_resultrightvalue = (dst_negative_keep_resultright) + ge_balance_positive_keep_resultrightvalue))))))))) /\ (exists sto_ap_keep_resultproduct sto_an_keep_resultproduct sto_bp_keep_resultproduct sto_bn_keep_resultproduct sto_cp_keep_resultproduct sto_cn_keep_resultproduct. (((((dc_left_keep_result) = 2 * (sto_ap_keep_resultproduct) /\ (sto_an_keep_resultproduct) = 0) \/ exists ge_signed_half_keep_resultproductleft. (((dc_left_keep_result) = 2 * ge_signed_half_keep_resultproductleft + 1 /\ (sto_ap_keep_resultproduct) = 0) /\ (sto_an_keep_resultproduct) = S ge_signed_half_keep_resultproductleft))) /\ ((((((dc_right_keep_result) = 2 * (sto_bp_keep_resultproduct) /\ (sto_bn_keep_resultproduct) = 0) \/ exists ge_signed_half_keep_resultproductright. (((dc_right_keep_result) = 2 * ge_signed_half_keep_resultproductright + 1 /\ (sto_bp_keep_resultproduct) = 0) /\ (sto_bn_keep_resultproduct) = S ge_signed_half_keep_resultproductright))) /\ ((((((z) = 2 * (sto_cp_keep_resultproduct) /\ (sto_cn_keep_resultproduct) = 0) \/ exists ge_signed_half_keep_resultproductoutput. (((z) = 2 * ge_signed_half_keep_resultproductoutput + 1 /\ (sto_cp_keep_resultproduct) = 0) /\ (sto_cn_keep_resultproduct) = S ge_signed_half_keep_resultproductoutput))) /\ ((sto_ap_keep_resultproduct * sto_bp_keep_resultproduct + sto_an_keep_resultproduct * sto_bn_keep_resultproduct) + sto_cn_keep_resultproduct = (sto_ap_keep_resultproduct * sto_bn_keep_resultproduct + sto_an_keep_resultproduct * sto_bp_keep_resultproduct) + sto_cp_keep_resultproduct))))))))))))))) \/ ((((d)=0 \/ ~(exists pvs_factor_keep_resultnondivisor. (n) = (d) * pvs_factor_keep_resultnondivisor)) /\ ((z)=0))))

Complete tactic proof in conservative notation

All 26 original proof lines are preserved. Only local proposition formulas are abbreviated; every abbreviation has an exact binder-safe expansion check. The linked exact edition contains the unchanged replay script.

Read the argument

Proof checkpoints

26 script commands · 11 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 F
  2. L2
    intro G
  3. L3
    intro n
  4. L4
    intro d
  5. L5
    intro q
  6. L6
    intro a
  7. L7
    intro b
  8. L8
    intro z
  9. L9
    intro hd
  10. L10
    intro hq
02Fix variables and assumptionsL11–13

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

  1. L11
    intro ha
  2. L12
    intro hb
  3. L13
    intro hz
03Separate the logical casesL14–15

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L14
    left
  2. L15
    split
04Use earlier factsL16–16

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

  1. L16
    exact hd
05Construct an explicit witnessL17–19

Supply the displayed value, then prove that it has the required property.

  1. L17
    exists q
  2. L18
    exists a
  3. L19
    exists b
06Separate the logical casesL20–20

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L20
    split
07Use earlier factsL21–21

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

  1. L21
    exact hq
08Separate the logical casesL22–22

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L22
    split
09Use earlier factsL23–23

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

  1. L23
    exact ha
10Separate the logical casesL24–24

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L24
    split
11Use earlier factsL25–26

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

  1. L25
    exact hb
  2. L26
    exact hz

Library-wide reading audit

Original defined command ledger · 26 lines
  1. 0001intro F
  2. 0002intro G
  3. 0003intro n
  4. 0004intro d
  5. 0005intro q
  6. 0006intro a
  7. 0007intro b
  8. 0008intro z
  9. 0009intro hd
  10. 0010intro hq
  11. 0011intro ha
  12. 0012intro hb
  13. 0013intro hz
  14. 0014left
  15. 0015split
  16. 0016exact hd
  17. 0017exists q
  18. 0018exists a
  19. 0019exists b
  20. 0020split
  21. 0021exact hq
  22. 0022split
  23. 0023exact ha
  24. 0024split
  25. 0025exact hb
  26. 0026exact hz