diff options
| -rw-r--r-- | source/Syntax/Internal.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/source/Syntax/Internal.hs b/source/Syntax/Internal.hs index c098380..6a53aa6 100644 --- a/source/Syntax/Internal.hs +++ b/source/Syntax/Internal.hs @@ -158,6 +158,7 @@ annotateWith = go go :: (Ord a) => Set a -> HashMap StructSymbol a -> ExprOf a -> ExprOf a go labels ops = \case TermSymbolStruct symb Nothing -> + -- TODO error if symbol is not instantiated, but only in theorems? TermSymbolStruct symb (TermVar <$> HM.lookup symb ops) e@TermSymbolStruct{} -> e |