5 lines
148 B
Text
5 lines
148 B
Text
constants a b : nat
|
|
constant p : nat → Prop
|
|
constant H1 : p (a + a + a)
|
|
constant H2 : a = b
|
|
check (eq.subst H2 H1 : p (a + b + a))
|