21 lines
990 B
Text
21 lines
990 B
Text
import system.IO
|
|
|
|
vm_eval do pp (level.max (level.succ level.zero) (level.param "foo")), put_str "\n"
|
|
|
|
vm_eval level.normalize (level.succ (level.max (level.max level.zero (level.succ level.zero)) (level.param "l₁")))
|
|
|
|
vm_eval level.imax (level.meta "m") (level.of_nat 10)
|
|
|
|
vm_eval if level.zero = level.zero then "eq" else "neq"
|
|
|
|
vm_eval level.occurs (level.param "l2") (level.max (level.param "l1") (level.param "l2"))
|
|
|
|
vm_eval level.occurs (level.param "l3") (level.max (level.param "l1") (level.param "l2"))
|
|
|
|
vm_eval level.eqv (level.max (level.param "l1") (level.param "l2")) (level.max (level.param "l2") (level.param "l1"))
|
|
|
|
vm_eval level.eqv (level.max (level.param "l1") (level.param "l2")) (level.max (level.param "l2") (level.param "l2"))
|
|
|
|
vm_eval level.has_param (level.max (level.param "l1") (level.param "l2")) "l1"
|
|
vm_eval level.has_param (level.max (level.param "l1") (level.param "l2")) "l2"
|
|
vm_eval level.has_param (level.max (level.param "l1") (level.param "l2")) "l3"
|