|
definition:
|
verifyPostConditions :: Options -> TAProg -> IORef VState -> IO TAProg
verifyPostConditions opts prog vstref = do
ti <- readVerifyInfoRef vstref
-- Operations with postcondition checks:
let fdecls = progFuncs prog
newfuns <- provePostConds ti (postConds ti) fdecls
return $ updProgFuncs (const newfuns) prog
where
provePostConds _ [] fdecls = return fdecls
provePostConds ti (pof:pofs) fdecls =
provePostCondition opts ti pof fdecls vstref >>= provePostConds ti pofs
|
|
demand:
|
no demanded arguments
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
---------------------------------------------------------------------------
-- Try to verify postconditions: If an operation `f` has a postcondition,
-- a proof for the validity of the postcondition is extracted.
-- If the proof is not successful, a postcondition check is added to `f`.
|
|
failfree:
|
<FAILING>
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_,_,_) |-> _}
|
|
name:
|
verifyPostConditions
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
ToolOptions.Options -> FlatCurry.Annotated.Types.AProg FlatCurry.Types.TypeExpr
-> Data.IORef.IORef VerifierState.VState
-> Prelude.IO (FlatCurry.Annotated.Types.AProg FlatCurry.Types.TypeExpr)
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|