diff options
| author | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-06-18 17:16:31 +0200 |
|---|---|---|
| committer | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-06-18 17:16:31 +0200 |
| commit | e90ffa98ad4fe2f12cff83656de84827e16e3ac4 (patch) | |
| tree | 0322a5b8a4eef68e2c37cba239e01695c813d3c8 /source/Megalodon.hs | |
| parent | 9563a18e455469bc64a9a8f61a95fb33f506bed0 (diff) | |
| parent | 2b2e37e1dc6d74433ef7d455a21f043df8201c3a (diff) | |
Merge remote-tracking branch 'upstream/main'
Diffstat (limited to 'source/Megalodon.hs')
| -rw-r--r-- | source/Megalodon.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/source/Megalodon.hs b/source/Megalodon.hs index 37479b2..7e75e6d 100644 --- a/source/Megalodon.hs +++ b/source/Megalodon.hs @@ -21,7 +21,7 @@ closure :: [ExprOf VarSymbol] -> ExprOf VarSymbol -> Formula closure asms stmt = contraction (forallClosure mempty (makeConjunction asms `Implies` stmt)) unAsm :: Asm -> Formula -unAsm (Asm phi )= phi +unAsm (Asm phi) = phi unAsm (AsmStruct x sp) = TermSymbol (SymbolPredicate (PredicateNounStruct sp)) [TermVar x] buildBlocks :: Lexicon -> [Block] -> Builder |