bergamot/test/Main.purs

14 lines
391 B
Plaintext
Raw Normal View History

2023-02-28 19:44:24 -08:00
module Test.Main where
import Prelude
import Language.Bergamot.Syntax
import Control.Monad.Logic.Trans
import Control.Monad.Logic.Class
import Control.Monad.Unify.Trans
import Control.Monad.Unify.Class
import Data.List
import Data.Maybe
2023-02-28 19:44:24 -08:00
main :: List String
main = map toLatexProofTree $ runUnifier $ query $ tType (tSndExpr (tProdExpr tStringExpr (tPlusExpr tIntExpr tIntExpr))) (Var "T")