Commit f04c7b24 authored by Ludwig Dietel's avatar Ludwig Dietel
Browse files

merged together

parents 09c79e7d 9c6e31f0
......@@ -72,7 +72,6 @@ type formula =
| AB of formula * formula
| EB of formula * formula
exception ConversionException of formula
(** Defines (unsorted) coalgebraic axioms for the TBox.
*)
......@@ -1527,7 +1526,6 @@ let exportSortedAxiom = function
| (s, INCLUSION(f1, f2)) -> (string_of_int s) ^ ": " ^ (exportFormula f1) ^ " [= " ^ (exportFormula f2)
| (s, DEFINITION(f1, f2)) -> (string_of_int s) ^ ": " ^ (exportFormula f1) ^ " := " ^ (exportFormula f2)
(** Destructs a nominal.
@param s the input stream
@return (tbox, query) in simplifyed nnf
......
......@@ -1346,7 +1346,6 @@ let ppELFormulae tbox sort subsumee subsumer =
let hctbox = makeHcTBox tbox in*)
List.iter (fun ax -> print_endline (CoAlgFormula.exportSortedAxiom ax)) tbox;
let rec normalizeAxiom name counter = function
| CoAlgFormula.VAR(symbol) ->
(counter, [CoAlgFormula.AP(symbol)], [])
......
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