struct: init synthesizer rewrite

model_with_structures/dune

@@ -42,23 +42,23 @@
 ;    -pp
 ;    camlp5/pp5+gt+plugins+ocanren+dump.exe)))
 
-; (library
-;  (name synthesizer_st)
-;  (modules synthesizer)
-;  (flags
-;   ; (-dsource)
-;   (:standard -rectypes))
-;  (libraries OCanren OCanren.tester)
-;  (preprocessor_deps ../camlp5/pp5+gt+plugins+ocanren+dump.exe)
-;  (wrapped false)
-;  (preprocess
-;   (pps
-;    OCanren-ppx.ppx_repr
-;    OCanren-ppx.ppx_deriving_reify
-;    OCanren-ppx.ppx_fresh
-;    GT.ppx
-;    GT.ppx_all
-;    OCanren-ppx.ppx_distrib
-;    --
-;    -pp
-;    camlp5/pp5+gt+plugins+ocanren+dump.exe)))
+(library
+ (name synthesizer_st)
+ (modules synthesizer)
+ (flags
+  ; (-dsource)
+  (:standard -rectypes))
+ (libraries OCanren OCanren.tester)
+ (preprocessor_deps ../camlp5/pp5+gt+plugins+ocanren+dump.exe)
+ (wrapped false)
+ (preprocess
+  (pps
+   OCanren-ppx.ppx_repr
+   OCanren-ppx.ppx_deriving_reify
+   OCanren-ppx.ppx_fresh
+   GT.ppx
+   GT.ppx_all
+   OCanren-ppx.ppx_distrib
+   --
+   -pp
+   camlp5/pp5+gt+plugins+ocanren+dump.exe)))

model_with_structures/model.typ

@@ -923,7 +923,7 @@ $s in stmt, f in X, x in X, a in X$
     // NOTE: x as path
     $mu stretch(=>)^(m space t space x)_(cl vals, types cr) mu'$,
 
-    // TODO: FIXME: is c important ?
+    // TODO:: is c important ?
     $mu stretch(=>)^(m space rf c t space rf x_(cl vals, types cr) mu'$,
   )
 ))