CurryInfo: contract-prover-4.0.0 / ContractProver.verifyPostConditions
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 |