1 files changed, 0 insertions, 14 deletions
diff --git a/src/expl_env.sml b/src/expl_env.sml
index 2ae167b2..b1bea90b 100644
--- a/src/expl_env.sml
+++ b/src/expl_env.sml
@@ -251,18 +251,4 @@ fun sgiBinds env (sgi, _) =
       | SgiVal (x, n, t) => pushENamed env x n t
       | SgiStr (x, n, sgn) => pushStrNamed env x n sgn
 
-
-val ktype = (KType, ErrorMsg.dummySpan)
-
-fun bbind env x =
-    case ElabEnv.lookupC ElabEnv.basis x of
-        ElabEnv.NotBound => raise Fail "CoreEnv.bbind: Not bound"
-      | ElabEnv.Rel _ => raise Fail "CoreEnv.bbind: Rel"
-      | ElabEnv.Named (n, _) => pushCNamed env x n ktype NONE
-
-val basis = empty
-val basis = bbind basis "int"
-val basis = bbind basis "float"
-val basis = bbind basis "string"
-
 end