Compiling again

lib/src/CoAlgLogics.ml

@@ -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