2015-11-05 05:53:12 +00:00
|
|
|
/- Basic rewriting with eq and lambda without congruence or conditionals -/
|
|
|
|
|
universe l
|
|
|
|
|
constant T : Type.{l}
|
|
|
|
|
constants (x y z : T) (f g h : T → T)
|
|
|
|
|
constants (Hfxgy : f x = g y) (Hgyhz : g y = h z)
|
|
|
|
|
|
|
|
|
|
attribute Hfxgy [simp]
|
|
|
|
|
#simplify eq 0 (λ a b c : bool, f x) -- λ (a b c : bool), g y
|
2015-11-07 05:02:04 +00:00
|
|
|
attribute Hgyhz [simp]
|
2015-11-05 05:53:12 +00:00
|
|
|
#simplify eq 0 (λ a b c : bool, f x) -- λ (a b c : bool), h z
|
|
|
|
|
|
