rhi/quox
rhi
/
quox
1
0
Fork 0
Code Issues 14 Pull Requests 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
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