Skip to content

Commit

Permalink
address comments about MRVarCtx
Browse files Browse the repository at this point in the history
  • Loading branch information
m-yac committed Aug 17, 2022
1 parent 7de0965 commit 997b050
Showing 1 changed file with 5 additions and 2 deletions.
7 changes: 5 additions & 2 deletions src/SAWScript/Prover/MRSolver/Term.hs
Original file line number Diff line number Diff line change
Expand Up @@ -116,7 +116,11 @@ newtype Type = Type Term deriving (Generic, Show)
-- | A context of variables, with names and types. To avoid confusion as to
-- how variables are ordered, do not use this type's constructor directly.
-- Instead, use the combinators defined below.
newtype MRVarCtx = MRVarCtx [(LocalName,Type)] deriving (Generic, Show)
newtype MRVarCtx = MRVarCtx [(LocalName,Type)]
-- ^ Internally, we store these names and types in order
-- from innermost to outermost variable, see
-- 'mrVarCtxInnerToOuter'
deriving (Generic, Show)

-- | Build an empty context of variables
emptyMRVarCtx :: MRVarCtx
Expand Down Expand Up @@ -447,7 +451,6 @@ instance TermLike LocalName where
substTermLike _ _ = return

deriving anyclass instance TermLike Type
deriving anyclass instance TermLike MRVarCtx
deriving instance TermLike NormComp
deriving instance TermLike CompFun
deriving instance TermLike Comp
Expand Down

0 comments on commit 997b050

Please sign in to comment.