more tests

This commit is contained in:
rhiannon morris 2023-03-26 16:15:19 +02:00
parent 5560cb6708
commit 5df2a4538c
2 changed files with 78 additions and 2 deletions

View file

@ -235,6 +235,11 @@ public export %inline
BVT : (i : Nat) -> (0 _ : LT i n) => Term q d n
BVT i = E $ BV i
public export
makeNat : Nat -> Term q d n
makeNat 0 = Zero
makeNat (S k) = Succ $ makeNat k
public export
enum : List TagVal -> Term q d n
enum = Enum . SortedSet.fromList