f557bf6024
This PR rearranges files under `Init.Grind`, moving out instances for concrete algebraic types in `Init.GrindInstances`.
35 lines
893 B
Text
35 lines
893 B
Text
/-
|
|
Copyright (c) 2025 Lean FRO, LLC. or its affiliates. All Rights Reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Kim Morrison
|
|
-/
|
|
module
|
|
|
|
prelude
|
|
import Init.Grind.Ordered.Ring
|
|
import Init.GrindInstances.Ring.Int
|
|
import Init.Omega
|
|
|
|
/-!
|
|
# `grind` instances for `Int` as an ordered module.
|
|
-/
|
|
|
|
namespace Lean.Grind
|
|
|
|
instance : Preorder Int where
|
|
le_refl := Int.le_refl
|
|
le_trans := Int.le_trans
|
|
lt_iff_le_not_le := by omega
|
|
|
|
instance : IntModule.IsOrdered Int where
|
|
neg_le_iff := by omega
|
|
add_le_left := by omega
|
|
hmul_pos_iff k a ha := ⟨fun h => Int.pos_of_mul_pos_left h ha, fun hk => Int.mul_pos hk ha⟩
|
|
hmul_nonneg hk ha := Int.mul_nonneg hk ha
|
|
|
|
instance : Ring.IsOrdered Int where
|
|
zero_lt_one := by omega
|
|
mul_lt_mul_of_pos_left := Int.mul_lt_mul_of_pos_left
|
|
mul_lt_mul_of_pos_right := Int.mul_lt_mul_of_pos_right
|
|
|
|
end Lean.Grind
|