Unverified Commit 53cd2d0f authored by Merlin's avatar Merlin 💧
Browse files

Compiling again

parent 657a553a
Pipeline #13359 waiting for manual action with stages
......@@ -681,8 +681,8 @@ let obind o f = match o with
| Some v -> f v
let getExpandingFunctionProducer func = oval (obind (obind (List.assoc_opt func implementationLookup) (fun impl -> These.fst impl)) getTableau) (fun _ -> raise (CoAlgFormula.CoAlgException ("one-step tableau based satisfiability is not implemented for " ^ string_of_functor func)))
let oneStepSatisfiability func = oval (obind (obind (List.assoc_opt func implementationLookup) (fun impl -> These.snd impl)) getOneStepFun) (fun _ -> raise (CoAlgFormula.CoAlgException ("one-step function based satisfiability is not implemented for " ^ string_of_functor func)))
let getExpandingFunctionProducer func = oval (obind (List.assoc_opt func implementationLookup) getTableau) (fun _ -> raise (CoAlgFormula.CoAlgException ("one-step tableau based satisfiability is not implemented for " ^ string_of_functor func)))
let oneStepSatisfiability func = oval (obind (List.assoc_opt func implementationLookup) getOneStepFun) (fun _ -> raise (CoAlgFormula.CoAlgException ("one-step function based satisfiability is not implemented for " ^ string_of_functor func)))
end
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment