MV000F

mobius_prime_squarefree

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

No genuine prime has a squared prime divisor; both nonzero and nonunit boundaries are proved from primality.

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. (~((p) = 1) /\ forall pvs_left_squarefree_prime pvs_right_squarefree_prime. (p) = pvs_left_squarefree_prime * pvs_right_squarefree_prime -> pvs_left_squarefree_prime = 1 \/ pvs_right_squarefree_prime = 1) -> (((~((p) = 0)) /\ (forall sfd_prime_prime_result. (~((sfd_prime_prime_result) = 1) /\ forall pvs_left_prime_resultdomain pvs_right_prime_resultdomain. (sfd_prime_prime_result) = pvs_left_prime_resultdomain * pvs_right_prime_resultdomain -> pvs_left_prime_resultdomain = 1 \/ pvs_right_prime_resultdomain = 1) -> (exists pvs_le_gap_prime_resultbound. pvs_le_gap_prime_resultbound + (sfd_prime_prime_result) = (p)) -> ~(exists pvs_factor_prime_resultsquare. (p) = (sfd_prime_prime_result * sfd_prime_prime_result) * pvs_factor_prime_resultsquare))))

Constructive proof overview

Generated structural guide

No genuine prime has a squared prime divisor; both nonzero and nonunit boundaries are proved from primality.

The unchanged tactic script uses 7 declared prerequisites and contains 49 exact native proof lines.

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

Proof neighborhood

Direct dependencies

prime_nonzero Stable theorem; checked-use authorized multiple_trans Stable theorem; checked-use authorized prime_divisor_of_prime_forces_equality Alpha theorem; checked-use authorized mul_left_cancel_nonzero Stable theorem; checked-use authorized mul_one Stable theorem; checked-use authorized mul_assoc Stable theorem; checked-use authorized divisor_one Stable theorem; checked-use authorized

Direct dependents

none

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

49 script commands · 19 reading checkpoints · 2 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–2

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

  1. L1
    intro p
  2. L2
    intro hp
02Separate the logical casesL3–3

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

  1. L3
    split
03Fix variables and assumptionsL4–4

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

  1. L4
    intro hz
04Use earlier factsL5–8

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

  1. L5
    specialize prime_nonzero (p)
  2. L6
    apply prime_nonzero
  3. L7
    exact hp
  4. L8
    exact hz
05Fix variables and assumptionsL9–12

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

  1. L9
    intro q
  2. L10
    intro hq
  3. L11
    intro hbound
  4. L12
    intro hdiv
06Establish heqL13–22

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply prime divisor of prime forces equality.

  1. L13
    have heq : q = p
  2. L14
    specialize prime_divisor_of_prime_forces_equality (q)
  3. L15
    specialize prime_divisor_of_prime_forces_equality (p)
  4. L16
    apply prime_divisor_of_prime_forces_equality
  5. L17
    exact hq
  6. L18
    exact hp
  7. L19
    specialize multiple_trans (q * q)
  8. L20
    specialize multiple_trans (q)
  9. L21
    specialize multiple_trans (p)
  10. L22
    apply multiple_trans
07Use earlier factsL23–23

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

  1. L23
    exact hdiv
08Construct an explicit witnessL24–24

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

  1. L24
    exists q
09Calculate and transport equalitiesL25–27

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L25
    refl
  2. L26
    rewrite heq at hdiv
  3. L27
    rewrite heq at hdiv
10Separate the logical casesL28–28

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

  1. L28
    cases hdiv
11Establish honeL29–38

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply mul left cancel nonzero.

  1. L29
    have hone : 1 = p * x
  2. L30
    specialize mul_left_cancel_nonzero (p)
  3. L31
    specialize mul_left_cancel_nonzero (1)
  4. L32
    specialize mul_left_cancel_nonzero (p * x)
  5. L33
    apply mul_left_cancel_nonzero
  6. L34
    intro hz
  7. L35
    specialize prime_nonzero (p)
  8. L36
    apply prime_nonzero
  9. L37
    exact hp
  10. L38
    exact hz
12Calculate and transport equalitiesL39–39

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L39
    trans p
13Use earlier factsL40–40

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

  1. L40
    apply mul_one
14Calculate and transport equalitiesL41–41

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L41
    trans (p * p) * x
15Use earlier factsL42–43

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

  1. L42
    exact hdiv_witness
  2. L43
    apply mul_assoc
16Separate the logical casesL44–44

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

  1. L44
    cases hp
17Use earlier factsL45–47

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

  1. L45
    apply hp_left
  2. L46
    specialize divisor_one (p)
  3. L47
    apply divisor_one
18Construct an explicit witnessL48–48

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

  1. L48
    exists x
19Use earlier factsL49–49

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

  1. L49
    exact hone

Library-wide reading audit

Original exact command ledger · 49 lines
  1. 0001intro p
  2. 0002intro hp
  3. 0003split
  4. 0004intro hz
  5. 0005specialize prime_nonzero (p)
  6. 0006apply prime_nonzero
  7. 0007exact hp
  8. 0008exact hz
  9. 0009intro q
  10. 0010intro hq
  11. 0011intro hbound
  12. 0012intro hdiv
  13. 0013have heq : q = p
  14. 0014specialize prime_divisor_of_prime_forces_equality (q)
  15. 0015specialize prime_divisor_of_prime_forces_equality (p)
  16. 0016apply prime_divisor_of_prime_forces_equality
  17. 0017exact hq
  18. 0018exact hp
  19. 0019specialize multiple_trans (q * q)
  20. 0020specialize multiple_trans (q)
  21. 0021specialize multiple_trans (p)
  22. 0022apply multiple_trans
  23. 0023exact hdiv
  24. 0024exists q
  25. 0025refl
  26. 0026rewrite heq at hdiv
  27. 0027rewrite heq at hdiv
  28. 0028cases hdiv
  29. 0029have hone : 1 = p * x
  30. 0030specialize mul_left_cancel_nonzero (p)
  31. 0031specialize mul_left_cancel_nonzero (1)
  32. 0032specialize mul_left_cancel_nonzero (p * x)
  33. 0033apply mul_left_cancel_nonzero
  34. 0034intro hz
  35. 0035specialize prime_nonzero (p)
  36. 0036apply prime_nonzero
  37. 0037exact hp
  38. 0038exact hz
  39. 0039trans p
  40. 0040apply mul_one
  41. 0041trans (p * p) * x
  42. 0042exact hdiv_witness
  43. 0043apply mul_assoc
  44. 0044cases hp
  45. 0045apply hp_left
  46. 0046specialize divisor_one (p)
  47. 0047apply divisor_one
  48. 0048exists x
  49. 0049exact hone