add super counterparts to sub

This commit is contained in:
rhiannon morris 2023-02-14 22:29:06 +01:00
parent bee6eeacdf
commit f22f194dc5

View file

@ -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