6970d77ae4
This PR add instances showing that the Grothendieck (i.e. additive) envelope of a semiring is an ordered ring if the original semiring is ordered (and satisfies ExistsAddOfLE), and in this case the embedding is monotone.
6 lines
230 B
Text
6 lines
230 B
Text
example (a b : Nat) : 3 * a * b = a * b * 3 := by grind
|
|
|
|
example (k z : Nat) : k * (z * 2 * (z * 2 + 1)) = z * (k * (2 * (z * 2 + 1))) := by grind
|
|
|
|
open Lean.Grind in
|
|
example : OrderedRing (Ring.OfSemiring.Q Nat) := inferInstance
|