36 lines
1.1 KiB
Text
36 lines
1.1 KiB
Text
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
|