test(tests/lean/simplifier_norm_num): add moderate sized test
This commit is contained in:
parent
f72da014d4
commit
6290919170
3 changed files with 5 additions and 3 deletions
|
@ -1,10 +1,9 @@
|
||||||
universe l
|
universe l
|
||||||
constants (T : Type.{l}) (f : T → T → T) (g : T → T)
|
constants (T : Type.{l}) (f : T → T → T) (g : T → T)
|
||||||
constants (P : T → Prop) (Q : Prop) (Hfg : ∀ (x : T), f x x = g x)
|
constants (P : T → Prop) (Q : Prop) (Hfg : ∀ (x : T), f x x = g x)
|
||||||
constants (c : Π (x y z : T), P x → P y → P z → Q)
|
constants (c : Π (x y z : T), P x → P y → P z → Q)
|
||||||
constants (x y z : T) (px : P (f x x)) (py : P (f y y)) (pz : P (g z))
|
constants (x y z : T) (px : P (f x x)) (py : P (f y y)) (pz : P (g z))
|
||||||
|
|
||||||
attribute Hfg [simp]
|
attribute Hfg [simp]
|
||||||
|
|
||||||
#simplify eq 0 c (f x x) (f y y) (g z) px py pz
|
#simplify eq 0 c (f x x) (f y y) (g z) px py pz
|
||||||
|
|
||||||
|
|
|
@ -52,5 +52,7 @@ attribute A_comm_ring [instance]
|
||||||
#simplify eq 0 (15 : A) * 6
|
#simplify eq 0 (15 : A) * 6
|
||||||
#simplify eq 0 (123456 : A) * 123456
|
#simplify eq 0 (123456 : A) * 123456
|
||||||
|
|
||||||
|
#simplify eq 0 (0 + 45343453:A) * (53653343 + 1) * (53453 + 2) + (0 + 1 + 2 + 2200000000034733)
|
||||||
|
|
||||||
-- The following test is too slow
|
-- The following test is too slow
|
||||||
-- #simplify eq 0 (23000000000343434534345316:A) * (53653343563534534 + 5367536453653573573453) * 53453756475777536 + 2200000000034733531531531534536
|
-- #simplify eq 0 (23000000000343434534345316:A) * (53653343563534534 + 5367536453653573573453) * 53453756475777536 + 2200000000034733531531531534536
|
||||||
|
|
|
@ -39,3 +39,4 @@
|
||||||
22
|
22
|
||||||
90
|
90
|
||||||
15241383936
|
15241383936
|
||||||
|
130049014430002489296
|
||||||
|
|
Loading…
Reference in a new issue