GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-18 05:21:57 +03:00
Code Issues Projects Releases Wiki Activity

Switch to using Tries.

Browse Source
This commit is contained in:
Iavor S. Diatchki 2015-01-06 11:47:40 -08:00
parent e5d31595ab
commit ad807491a5
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Cryptol/TypeCheck/Solver/Numeric/NonLin.hs
View File

@ -9,17 +9,10 @@ module Cryptol.TypeCheck.Solver.Numeric.NonLin
import Cryptol.TypeCheck.Solver.Numeric.AST import Cryptol.TypeCheck.Solver.Numeric.AST
import Cryptol.Utils.Panic(panic) import Cryptol.Utils.Panic(panic)
{-
import Data.GenericTrie (Trie) import Data.GenericTrie (Trie)
import qualified Data.GenericTrie as Trie import qualified Data.GenericTrie as Trie
-}
import Data.Map (Map)
import qualified Data.Map as Trie
import MonadLib import MonadLib
type Trie = Map
-- | Factor-out non-linear terms, by naming them -- | Factor-out non-linear terms, by naming them
nonLinProp :: NonLinS -> Prop -> ([(Name,Expr)], Prop, NonLinS) nonLinProp :: NonLinS -> Prop -> ([(Name,Expr)], Prop, NonLinS)
nonLinProp s0 prop = case runId $ runStateT s0 $ nonLinPropM prop of nonLinProp s0 prop = case runId $ runStateT s0 $ nonLinPropM prop of