CurryInfo: contract-prover-4.0.0 / ContractProver.provePreCondition

definition:
 
provePreCondition :: Options -> IORef VState -> TAFuncDecl -> IO TAFuncDecl
provePreCondition opts vstref fdecl = do
  ti <- readVerifyInfoRef vstref
  printWhenIntermediate opts $
    "Operation to be checked: " ++ snd (funcName fdecl)
  newrule <- optPreConditionInRule opts ti (funcName fdecl)
                                           (funcRule fdecl) vstref
  return (updFuncRule (const newrule) fdecl)
demand:
 no demanded arguments
deterministic:
 deterministic operation
failfree:
 <FAILING>
indeterministic:
 referentially transparent operation
infix:
 no fixity defined
iotype:
 {(_,_,_) |-> _}
name:
 provePreCondition
precedence:
 no precedence defined
result-values:
 _
signature:
 ToolOptions.Options -> Data.IORef.IORef VerifierState.VState
-> FlatCurry.Annotated.Types.AFuncDecl FlatCurry.Types.TypeExpr
-> Prelude.IO (FlatCurry.Annotated.Types.AFuncDecl FlatCurry.Types.TypeExpr)
solution-complete:
 operation might suspend on free variables
terminating:
 possibly non-terminating
totally-defined:
 possibly non-reducible on same data term