move 'enum' to Syntax.Base

This commit is contained in:
rhiannon morris 2023-03-26 16:14:58 +02:00
parent e6c4203b46
commit 5560cb6708
3 changed files with 4 additions and 6 deletions

View file

@ -234,3 +234,7 @@ BV i = B $ V i
public export %inline public export %inline
BVT : (i : Nat) -> (0 _ : LT i n) => Term q d n BVT : (i : Nat) -> (0 _ : LT i n) => Term q d n
BVT i = E $ BV i BVT i = E $ BV i
public export
enum : List TagVal -> Term q d n
enum = Enum . SortedSet.fromList

View file

@ -24,9 +24,6 @@ parameters (ds : NContext d) (ns : NContext n)
{default str label : String} -> Test {default str label : String} -> Test
testPrettyE1 e str {label} = testPrettyT1 (E e) str {label} testPrettyE1 e str {label} = testPrettyT1 (E e) str {label}
enum : List TagVal -> Term q d n
enum = Enum . SortedSet.fromList
export export
tests : Test tests : Test
tests = "pretty printing terms" :- [ tests = "pretty printing terms" :- [

View file

@ -160,9 +160,6 @@ failing "Can't find an implementation"
sany : SQty Three sany : SQty Three
sany = Element Any %search sany = Element Any %search
enum : List TagVal -> Term q d n
enum = Enum . SortedSet.fromList
export export
tests : Test tests : Test