test(tests/lean/run/cc_ac3): add test that requires superpose
This commit is contained in:
parent
4f463d6b85
commit
312445fc57
1 changed files with 36 additions and 0 deletions
36
tests/lean/run/cc_ac3.lean
Normal file
36
tests/lean/run/cc_ac3.lean
Normal file
|
|
@ -0,0 +1,36 @@
|
|||
open tactic
|
||||
|
||||
example (a b c d e : nat) (f : nat → nat → nat) : b + a = d → b + c = e → f (a + b + c) (a + b + c) = f (c + d) (a + e) :=
|
||||
by cc
|
||||
|
||||
example (a b c d e : nat) (f : nat → nat → nat) : b + a = d + d → b + c = e + e → f (a + b + c) (a + b + c) = f (c + d + d) (e + a + e) :=
|
||||
by cc
|
||||
|
||||
section
|
||||
universe variable u
|
||||
variables {α : Type u}
|
||||
variable [comm_semiring α]
|
||||
|
||||
example (a b c d e : α) (f : α → α → α) : b + a = d + d → b + c = e + e → f (a + b + c) (a + b + c) = f (c + d + d) (e + a + e) :=
|
||||
by cc
|
||||
end
|
||||
|
||||
section
|
||||
universe variable u
|
||||
variables {α : Type u}
|
||||
variable [comm_ring α]
|
||||
|
||||
example (a b c d e : α) (f : α → α → α) : b + a = d + d → b + c = e + e → f (a + b + c) (a + b + c) = f (c + d + d) (e + a + e) :=
|
||||
by cc
|
||||
end
|
||||
|
||||
section
|
||||
universe variable u
|
||||
variables {α : Type u}
|
||||
variables op : α → α → α
|
||||
variables [is_associative α op]
|
||||
variables [is_commutative α op]
|
||||
|
||||
def ex (a b c d e : α) (f : α → α → α) : op b a = op d d → op b c = op e e → f (op a (op b c)) (op (op a b) c) = f (op (op c d) d) (op e (op a e)) :=
|
||||
by cc
|
||||
end
|
||||
Loading…
Add table
Reference in a new issue