rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

remove universe type

Browse source
This commit is contained in:
rhiannon morris 2023-03-05 16:48:29 +01:00
parent 0cae84c75b
commit b7acf39c39
8 changed files with 21 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tests/Tests/Equal.idr
View file

@ -260,11 +260,11 @@ tests = "equality & subtyping" :- [
"free var" :-
let au_bu = fromList
[("A", mkDef Any (TYPE (U 1)) (TYPE (U 0))),
("B", mkDef Any (TYPE (U 1)) (TYPE (U 0)))]
[("A", mkDef Any (TYPE 1) (TYPE 0)),
("B", mkDef Any (TYPE 1) (TYPE 0))]
au_ba = fromList
[("A", mkDef Any (TYPE (U 1)) (TYPE (U 0))),
("B", mkDef Any (TYPE (U 1)) (FT "A"))]
[("A", mkDef Any (TYPE 1) (TYPE 0)),
("B", mkDef Any (TYPE 1) (FT "A"))]
in [
testEq "A = A" $
equalE empty (F "A") (F "A"),