Add flags to TopEntry, detect duplicate constructors, fix issue with missing constructors in CompileExp.

src/Lib/Eval.newt

@@ -70,7 +70,7 @@ tryEval : Env -> Val -> M (Maybe Val)
 tryEval env (VRef fc k sp) = do
   top <- getTop
   case lookup k top of
-      Just (MkEntry _ name ty (Fn tm)) =>
+      Just (MkEntry _ name ty (Fn tm) _) =>
         catchError (
             do
             debug $ \ _ =>  "app \{show name} to \{show sp}"
@@ -112,7 +112,7 @@ evalCase env mode sc@(VRef _ nm sp) (cc@(CaseCons name nms t) :: xs) = do
       debug $ \ _ =>  "ECase \{show nm} \{show sp} \{show nms} \{showTm t}"
       go env (sp <>> Nil) nms
     else case lookup nm top of
-      (Just (MkEntry _ str type (DCon _ k str1))) => evalCase env mode sc xs
+      (Just (MkEntry _ str type (DCon _ k str1) _)) => evalCase env mode sc xs
       -- bail for a stuck function
       _ => pure Nothing
   where