14 lines
240 B
Text
14 lines
240 B
Text
exit
|
|
constant p : nat → nat → Prop
|
|
|
|
constant p_trans : ∀ a b c, p a b → p b c → p a c
|
|
|
|
definition lemma1 (a b c d : nat) : a = d → p b c → p a b → p a c :=
|
|
begin
|
|
intros,
|
|
apply p_trans,
|
|
blast,
|
|
blast
|
|
end
|
|
|
|
print lemma1
|