2015-11-08 05:09:39 +00:00
|
|
|
universe l
|
2015-11-13 19:31:18 +00:00
|
|
|
constants (T : Type.{l}) (f : T → T → T) (g : T → T)
|
2015-11-08 05:09:39 +00:00
|
|
|
constants (P : T → Prop) (Q : Prop) (Hfg : ∀ (x : T), f x x = g x)
|
2015-11-13 19:31:18 +00:00
|
|
|
constants (c : Π (x y z : T), P x → P y → P z → Q)
|
2015-11-08 05:09:39 +00:00
|
|
|
constants (x y z : T) (px : P (f x x)) (py : P (f y y)) (pz : P (g z))
|
2015-11-17 00:00:00 +00:00
|
|
|
|
2015-11-08 05:09:39 +00:00
|
|
|
attribute Hfg [simp]
|
2015-11-17 00:00:00 +00:00
|
|
|
|
|
|
|
#simplify eq env 0 c (f x x) (f y y) (g z) px py pz
|