Skip to content
Snippets Groups Projects
Commit d2db7e40 authored by Christoph's avatar Christoph
Browse files

Add prototypes for checker functions

We need to enforce some assumptions for μ-Calculus. Add (still empty)
checker function and call them when importing the forumla
parent 309b71a5
Branches
No related tags found
No related merge requests found
...@@ -247,6 +247,14 @@ let convertToMu formula = ...@@ -247,6 +247,14 @@ let convertToMu formula =
in in
convert_post helper formula convert_post helper formula
let verifyMuAltFree formula =
true
let verifyMuMonotone forumla =
true
let verifyMuGuarded formula =
true
(** Appends a string representation of a formula to a string buffer. (** Appends a string representation of a formula to a string buffer.
Parentheses are ommited where possible Parentheses are ommited where possible
where the preference rules are defined as usual. where the preference rules are defined as usual.
...@@ -612,6 +620,7 @@ let mk_exn s = CoAlgException s ...@@ -612,6 +620,7 @@ let mk_exn s = CoAlgException s
*) *)
let rec parse_formula (symtab: 'a list) ts = let rec parse_formula (symtab: 'a list) ts =
let f1 = convertToMu (parse_imp symtab ts) in let f1 = convertToMu (parse_imp symtab ts) in
assert (verifyMuAltFree f1 && verifyMuMonotone f1 && verifyMuGuarded f1);
match Stream.peek ts with match Stream.peek ts with
| None -> f1 | None -> f1
| Some (A.Kwd "<=>") -> | Some (A.Kwd "<=>") ->
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment