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
|
||||
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
|
||||
sub = compare Sub
|
||||
super = compare Super
|
||||
|
||||
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
|
||||
subtype = compareType Sub
|
||||
supertype = compareType Super
|
||||
|
||||
namespace Elim
|
||||
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
|
||||
sub = compare Sub
|
||||
super = compare Super
|
||||
|
|
Loading…
Reference in a new issue