ᛒ
Size: a a a
ᛒ
ZM
R
ZM
AG
axiomK : Term d g (Box (a ~> b) ~> Box a ~> Box b)
axiomK = Lam $ Lam $ Cut (Var (There Here) Nil) $
BoxL $
Cut (Var Here Nil) $
BoxL $
Shut $ Cut (MVar (There Here) Nil) $
Cons (MVar Here Nil) Nil
axiomT : Term d g (Box a ~> a)
axiomT = Lam $ Cut (Var Here Nil) $ BoxL $ MVar Here Nil
axiom4 : Term d g (Box a ~> Box (Box a))
axiom4 = Lam $ Cut (Var Here Nil) $ BoxL $ Shut $ Shut $ MVar Here Nil
w
axiomK : Term d g (Box (a ~> b) ~> Box a ~> Box b)
axiomK = Lam $ Lam $ Cut (Var (There Here) Nil) $
BoxL $
Cut (Var Here Nil) $
BoxL $
Shut $ Cut (MVar (There Here) Nil) $
Cons (MVar Here Nil) Nil
axiomT : Term d g (Box a ~> a)
axiomT = Lam $ Cut (Var Here Nil) $ BoxL $ MVar Here Nil
axiom4 : Term d g (Box a ~> Box (Box a))
axiom4 = Lam $ Cut (Var Here Nil) $ BoxL $ Shut $ Shut $ MVar Here Nil
AG
AG
R
AG
AG
R
AT
AG