25 lines
381 B
Text
25 lines
381 B
Text
definition foo.subst := @eq.subst
|
|
definition boo.subst := @eq.subst
|
|
|
|
definition foo.add := @add
|
|
definition boo.add := @add
|
|
|
|
set_option pp.all true
|
|
|
|
open foo boo
|
|
#print raw subst -- subst is overloaded
|
|
#print raw add -- add is overloaded
|
|
|
|
#check @subst
|
|
|
|
#check @@subst
|
|
|
|
open eq
|
|
|
|
#check subst
|
|
|
|
constants a b : nat
|
|
constant H1 : a = b
|
|
constant H2 : a + b > 0
|
|
|
|
#check eq.subst H1 H2
|