add super
counterparts to sub
This commit is contained in:
parent
bee6eeacdf
commit
f22f194dc5
1 changed files with 6 additions and 3 deletions
|
@ -318,17 +318,20 @@ parameters {auto _ : (HasDefs' q _ m, HasErr q m, Eq q)} (ctx : TyContext q d n)
|
||||||
|
|
||||||
namespace Term
|
namespace Term
|
||||||
export covering %inline
|
export covering %inline
|
||||||
equal, sub : (ty, s, t : Term q d n) -> m ()
|
equal, sub, super : (ty, s, t : Term q d n) -> m ()
|
||||||
equal = compare Equal
|
equal = compare Equal
|
||||||
sub = compare Sub
|
sub = compare Sub
|
||||||
|
super = compare Super
|
||||||
|
|
||||||
export covering %inline
|
export covering %inline
|
||||||
equalType, subtype : (s, t : Term q d n) -> m ()
|
equalType, subtype, supertype : (s, t : Term q d n) -> m ()
|
||||||
equalType = compareType Equal
|
equalType = compareType Equal
|
||||||
subtype = compareType Sub
|
subtype = compareType Sub
|
||||||
|
supertype = compareType Super
|
||||||
|
|
||||||
namespace Elim
|
namespace Elim
|
||||||
export covering %inline
|
export covering %inline
|
||||||
equal, sub : (e, f : Elim q d n) -> m ()
|
equal, sub, super : (e, f : Elim q d n) -> m ()
|
||||||
equal = compare Equal
|
equal = compare Equal
|
||||||
sub = compare Sub
|
sub = compare Sub
|
||||||
|
super = compare Super
|
||||||
|
|
Loading…
Reference in a new issue