rhi/quox
rhi
/
quox
1
0
Fork 0
Code Issues 16 Pull Requests 1 Releases Wiki Activity

add `super` counterparts to `sub`

This commit is contained in:
rhiannon morris 2023-02-14 22:29:06 +01:00
parent bee6eeacdf
commit f22f194dc5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Quox/Equal.idr
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