more tests
This commit is contained in:
parent
5560cb6708
commit
5df2a4538c
2 changed files with 78 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue