2015-11-13 04:24:59 +00:00
|
|
|
import algebra.simplifier
|
|
|
|
|
open simplifier.numeral
|
2015-11-06 02:30:23 +00:00
|
|
|
open algebra
|
2015-11-13 04:59:26 +00:00
|
|
|
|
2015-11-13 04:24:59 +00:00
|
|
|
set_option simplify.max_steps 500000
|
|
|
|
|
constants (A : Type.{1}) (A_comm_ring : algebra.comm_ring A)
|
2015-11-06 02:30:23 +00:00
|
|
|
attribute A_comm_ring [instance]
|
|
|
|
|
|
2015-11-13 04:59:26 +00:00
|
|
|
#simplify eq 0 (0:A) + 1
|
|
|
|
|
#simplify eq 0 (1:A) + 0
|
|
|
|
|
#simplify eq 0 (1:A) + 1
|
|
|
|
|
#simplify eq 0 (0:A) + 2
|
|
|
|
|
#simplify eq 0 (1:A) + 2
|
|
|
|
|
#simplify eq 0 (2:A) + 1
|
|
|
|
|
#simplify eq 0 (3:A) + 1
|
|
|
|
|
#simplify eq 0 (2:A) + 2
|
|
|
|
|
#simplify eq 0 (4:A) + 1
|
|
|
|
|
#simplify eq 0 (3:A) + 2
|
|
|
|
|
#simplify eq 0 (2:A) + 3
|
|
|
|
|
#simplify eq 0 (0:A) + 6
|
|
|
|
|
#simplify eq 0 (3:A) + 3
|
|
|
|
|
#simplify eq 0 (4:A) + 2
|
|
|
|
|
#simplify eq 0 (5:A) + 1
|
|
|
|
|
#simplify eq 0 (4:A) + 3
|
|
|
|
|
#simplify eq 0 (1:A) + 6
|
|
|
|
|
#simplify eq 0 (6:A) + 1
|
2015-11-06 02:30:23 +00:00
|
|
|
#simplify eq 0 (5:A) + 28
|
|
|
|
|
#simplify eq 0 (0 : A) + (2 + 3) + 7
|
|
|
|
|
#simplify eq 0 (70 : A) + (33 + 2)
|
|
|
|
|
#simplify eq 0 (23000000000 : A) + 22000000000
|
|
|
|
|
|
|
|
|
|
#simplify eq 0 (0 : A) * 0
|
|
|
|
|
#simplify eq 0 (0 : A) * 1
|
|
|
|
|
#simplify eq 0 (0 : A) * 2
|
|
|
|
|
#simplify eq 0 (2 : A) * 0
|
|
|
|
|
#simplify eq 0 (1 : A) * 0
|
|
|
|
|
#simplify eq 0 (1 : A) * 1
|
|
|
|
|
#simplify eq 0 (2 : A) * 1
|
|
|
|
|
#simplify eq 0 (1 : A) * 2
|
|
|
|
|
#simplify eq 0 (2 : A) * 2
|
|
|
|
|
#simplify eq 0 (3 : A) * 2
|
|
|
|
|
#simplify eq 0 (2 : A) * 3
|
|
|
|
|
#simplify eq 0 (4 : A) * 1
|
|
|
|
|
#simplify eq 0 (1 : A) * 4
|
|
|
|
|
#simplify eq 0 (3 : A) * 3
|
|
|
|
|
#simplify eq 0 (3 : A) * 4
|
|
|
|
|
#simplify eq 0 (4 : A) * 4
|
|
|
|
|
#simplify eq 0 (11 : A) * 2
|
|
|
|
|
#simplify eq 0 (15 : A) * 6
|
|
|
|
|
#simplify eq 0 (123456 : A) * 123456
|
2015-11-06 03:43:10 +00:00
|
|
|
|
2015-11-13 17:21:44 +00:00
|
|
|
-- The following test is too slow
|
|
|
|
|
-- #simplify eq 0 (23000000000343434534345316:A) * (53653343563534534 + 5367536453653573573453) * 53453756475777536 + 2200000000034733531531531534536
|
