43 lines
1.4 KiB
Idris
43 lines
1.4 KiB
Idris
module Tests
|
|
|
|
import Term
|
|
import Check
|
|
import Convert
|
|
import Misc
|
|
import Normalize
|
|
import Value
|
|
|
|
import Control.Monad.RWS
|
|
import Control.Monad.Identity
|
|
import Control.Monad.Either
|
|
|
|
import Data.Nat
|
|
|
|
%default total
|
|
|
|
a : {p, q : Nat} -> lt p q = True -> LT p q
|
|
a {p} {q} eq = ltReflectsLT p q eq
|
|
|
|
{- λA. λx. x : ∏ (A : Type) → A → A -}
|
|
test_id : Either String (Bool, List String)
|
|
test_id = typecheck (TLam (TLam (TVar 0 (a Refl))))
|
|
(TPi TType (TPi (TVar 0 (a Refl)) (TVar 1 (a Refl))))
|
|
|
|
{- λA. λB. λf. λx. f x : ∏ (A : Type) ∏ (B : A → Type) ∏ (f : ∏ (x : A) B x) ∏ (x : A) B x -}
|
|
test_app : Either String (Bool, List String)
|
|
test_app = typecheck (TLam (TLam (TLam (TLam (TApp (TVar 1 (a Refl)) (TVar 0 (a Refl)))))))
|
|
(TPi TType
|
|
(TPi (TPi (TVar 0 (a Refl)) TType)
|
|
(TPi (TPi (TVar 1 (a Refl)) (TApp (TVar 1 (a Refl)) (TVar 0 (a Refl))))
|
|
(TPi (TVar 2 (a Refl)) (TApp (TVar 2 (a Refl)) (TVar 0 (a Refl)))))))
|
|
|
|
{- λf. λx. f x ≃ λf. λx. (λy. f y) x -}
|
|
eta_test : Either String (Bool, List String)
|
|
eta_test = resolve action
|
|
where
|
|
action : PI Bool
|
|
action = do
|
|
x <- eval ctx0 (TLam (TLam (TApp (TVar 1 (a Refl)) (TVar 0 (a Refl)))))
|
|
y <- eval ctx0 (TLam (TLam (TApp (TLam (TApp (TVar 2 (a Refl)) (TVar 0 (a Refl)))) (TVar 0 (a Refl)))))
|
|
convert x y
|