PA003A

lt_not_le

Stable checked-use theorem · independently closed

A strict inequality excludes the reverse weak inequality.

Exact expanded PA statement

forall a b. (exists k. k + S a = b) -> ~ (exists k. k + b = a)

Structural proof guide

Generated structural guide

A strict inequality excludes the reverse weak inequality.

This root lemma is proved directly from the PA rules and the hypotheses introduced by its statement.

The proof proceeds by structural induction (1), case analysis (2), intermediate claims (1), equality transport (5).

Referenced ingredients

none

Proof neighborhood

Direct dependencies

none

Direct dependents

PA0063 prime_bounded_nonzero_mod_inverse PA0072 gauss_half_range_signed_choices PA0082 prime_positive_bounded_product_coprime PA0089 bounded_nonzero_not_divides PA008B prime_mul_index_map_exists_up_to PA008K prime_range_product_coprime PA009C prime_scaled_inverse_unique PA00AG prime_bounded_square_one_cases PA00D8 distinct_odd_prime_half_products_ne PA00D9 distinct_odd_prime_half_cell_oriented PA00DN prime_nondivisor_bounded_scaled_remainder_nonzero PA00DR odd_half_division_quotient_bounded PA00DS nonzero_remainder_division_positive_multiple_threshold PA00DX eisenstein_initial_segment_bit_count_functional

Formal native tactic body

Dependencies are introduced as named hypotheses before line 1. Linked names are exact direct references. This Stable checked-use theorem is independently kernel-checked when replayed.

  1. 0001have hbad : forall z u v. ~(z = u + (v + S z))
  2. 0002intro z
  3. 0003induction z
  4. 0004intro u
  5. 0005intro v
  6. 0006intro hz
  7. 0007apply PA1
  8. 0008symm
  9. 0009rewrite PA4 at hz
  10. 0010rewrite PA4 at hz
  11. 0011exact hz
  12. 0012intro u
  13. 0013intro v
  14. 0014intro hz
  15. 0015specialize IH u
  16. 0016specialize IH v
  17. 0017apply IH
  18. 0018apply PA2
  19. 0019rewrite PA4 at hz
  20. 0020rewrite PA4 at hz
  21. 0021exact hz
  22. 0022intro a
  23. 0023intro b
  24. 0024intro hab
  25. 0025intro hba
  26. 0026cases hab
  27. 0027cases hba
  28. 0028specialize hbad a
  29. 0029specialize hbad x1
  30. 0030specialize hbad x
  31. 0031apply hbad
  32. 0032symm
  33. 0033rewrite <- hab_witness at hba_witness
  34. 0034exact hba_witness