2015-12-05 03:13:49 +00:00
|
|
|
import algebra.ring
|
2015-11-17 01:57:33 +00:00
|
|
|
open algebra
|
|
|
|
|
universe l
|
|
|
|
|
constants (A : Type.{l}) (s : comm_ring A) (x : A)
|
|
|
|
|
attribute s [instance]
|
|
|
|
|
|
|
|
|
|
set_option simplify.numerals true
|
|
|
|
|
|
|
|
|
|
#simplify eq env 0 (1:A)
|
|
|
|
|
#simplify eq env 0 (1:A) + 1
|
|
|
|
|
#simplify eq env 0 (1:A) + 1 + 1
|
|
|
|
|
#simplify eq env 0 (1:A) + 2 + 1
|
|
|
|
|
#simplify eq env 0 (1:A) + 2 * 7 + 1
|
|
|
|
|
#simplify eq env 0 (1:A) + 2 * 7 + 10
|
|
|
|
|
#simplify eq env 0 (10000000000000000000:A) + 10000000000000000000
|
