|
definition:
|
isEquivProperty :: CFuncDecl -> Maybe (CExpr,CExpr)
isEquivProperty fdecl =
case funcRules fdecl of
[CRule args (CSimpleRhs (CApply (CApply (CSymbol prop) e1) e2) [])]
-> if isEquivSymbol prop
then
if null args
then Just (e1,e2)
else error $ "Illegal equivalence property '" ++
snd (funcName fdecl) ++ "':\n" ++
"Non-empty parameter list!"
else Nothing
_ -> Nothing
where
isEquivSymbol (qn,mn) = isCheckModule qn && mn=="<=>"
|
|
demand:
|
argument 1
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
--- Check whether a function definition is an equivalence property, i.e.,
--- has the form `test = f1 <=> f2`. If yes, returns both operations,
--- otherwise `Nothing` is returned.
|
|
failfree:
|
_
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_) |-> _}
|
|
name:
|
isEquivProperty
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
AbstractCurry.Types.CFuncDecl
-> Prelude.Maybe (AbstractCurry.Types.CExpr, AbstractCurry.Types.CExpr)
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
reducible on all ground data terms
|