quox/src/Quox.idr

38 lines
709 B
Idris
Raw Normal View History

2021-07-07 07:11:39 -04:00
module Quox
2022-02-26 20:18:16 -05:00
import public Quox.Name
2021-09-09 17:51:00 -04:00
import public Quox.Syntax
2022-02-26 20:18:16 -05:00
import public Quox.Equal
import public Quox.Error
2021-07-20 16:05:19 -04:00
import public Quox.Pretty
2022-02-26 20:18:16 -05:00
-- import public Quox.Typechecker
2021-07-20 16:05:19 -04:00
import Data.Nat
import Data.Vect
2022-03-06 19:19:26 -05:00
export
banner : String
banner = #"""
_ ___,-´/
(.`--´ -´/ ___ ___ _____ __ __
\/\/--´`´`--´ / _ `/ // / _ \\ \ /
U ---, / \_, /\_,_/\___/_\_\
/--/ | /_/
/--/ |
"""#
2021-07-20 16:05:19 -04:00
export
tm : Term 1 2
tm =
(Pi Zero One "a" (BVT 0) (E (F "F" :@@ [BVT 0, FT "w"]))
`DCloT` (K One ::: id))
2021-07-20 16:05:19 -04:00
`CloT` (F "y" ::: TYPE (U 1) :# TYPE (U 2) ::: id)
2021-07-07 07:11:39 -04:00
main : IO Unit
2021-07-20 16:05:19 -04:00
main = do
2022-03-06 19:19:26 -05:00
putStrLn banner
2021-07-20 16:05:19 -04:00
prettyTerm tm
prettyTerm $ pushSubstsT tm