43 lines
1.2 KiB
Idris
43 lines
1.2 KiB
Idris
module Convert
|
|
|
|
import Term
|
|
import Value
|
|
import Misc
|
|
import Normalize
|
|
|
|
import Control.Monad.RWS
|
|
import Control.Monad.Identity
|
|
import Control.Monad.Either
|
|
|
|
import Data.Nat
|
|
import Data.Vect
|
|
|
|
%default total
|
|
|
|
public export
|
|
convert : Value -> Value -> PI Bool
|
|
convert u1 u2 = do
|
|
u1' <- whnf u1
|
|
u2' <- whnf u2
|
|
logS ("checking equality of terms '" ++ show u1 ++ "' and '" ++ show u2 ++ "'.")
|
|
logS ("with value representations '" ++ show u1' ++ "' and '" ++ show u2' ++ "'.")
|
|
assert_total $ -- :(
|
|
case (u1', u2') of
|
|
(VType, VType) => pure True
|
|
(VApp f1 x1, VApp f2 x2) => (&&) <$> convert f1 f2
|
|
<*> delay <$> convert x1 x2
|
|
(VGen k1, VGen k2) => pure (k1 == k2)
|
|
|
|
(VClos env1 (TLam sc1), VClos env2 (TLam sc2)) => do
|
|
v <- VGen <$> fresh
|
|
convert (VClos (v :: env1) sc1)
|
|
(VClos (v :: env2) sc2)
|
|
|
|
(VClos env1 (TPi a1 b1), VClos env2 (TPi a2 b2)) => do
|
|
v <- VGen <$> fresh
|
|
(&&) <$> convert (VClos env1 a1)
|
|
(VClos env2 a2)
|
|
<*> delay <$> convert (VClos (v :: env1) b1)
|
|
(VClos (v :: env2) b2)
|
|
_ => pure False
|