Täienda fixpoint

Author: sim642

src/fixpoint/dune

@@ -1,3 +1,4 @@
 (library
  (name fixpoint)
+ (libraries domain)
  (preprocess (pps ppx_deriving.std)))

src/fixpoint/fixpoint.ml

@@ -31,3 +31,17 @@ struct
   let closure_strict_distr (f: D.t -> D.t) (initial: D.t): D.t =
     failwith "TODO"
 end
+
+(** Püsipunktid üle domeenide. *)
+module MakeDomain (D: Domain.S) =
+struct
+  include Make (D)
+
+  (** Leiab funktsiooni vähima püsipunkti. *)
+  let lfp (f: D.t -> D.t): D.t =
+    fp f D.bot
+
+  (** Leiab funktsiooni sulundi, mis sisaldab antud domeeni elementi. *)
+  let closure (f: D.t -> D.t) (initial: D.t): D.t =
+    lfp (fun x -> D.join initial (f x))
+end