Commit d45c9c76 authored by POTTIER Francois's avatar POTTIER Francois


parent 5ad4cf02
......@@ -249,6 +249,10 @@ let (&&&) e1 e2 =
(* Negation. *)
(* One could systematically push negation down through conjunction (turning it
into a disjunction) and through disjunction (turning into a conjunction). It
is done here only in the case of empty conjunctions and disjunctions. *)
let neg (e : regexp) : regexp =
match skeleton e with
| ENeg e ->
Markdown is supported
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