struct: cosmetic fixes

model_with_structures/analyzer.ml

@@ -459,7 +459,7 @@ struct
       | TupleV vs, TupleT ts -> ignore @@ List.map2 (tags_check mem) vs ts
       | _, _ -> raise @@ Typing_error "tags_check"
 
-  (* - writable type *)
+  (* - writability check *)
 
   let rec is_all_type_writable (t : atype) : bool =
     match t with

model_with_structures/model.typ

@@ -1471,21 +1471,10 @@ $s in stmt, f in X, x in X, a in X, p in path, pi in revpath$
 
 #h(10pt)
 
-=== Writable Type
+=== Writability Check
 
 #let twrite = $attach(tack.r, br: #[`write`])$
 
-#align(center, prooftree(
-  vertical-spacing: 4pt,
-  rule(
-    name: [ writable unit type: MaybeWrite],
-
-    $twrite cl r, MaybeWrite cr$,
-  )
-))
-
-#h(10pt)
-
 #align(center, prooftree(
   vertical-spacing: 4pt,
   rule(
@@ -1500,7 +1489,18 @@ $s in stmt, f in X, x in X, a in X, p in path, pi in revpath$
 #align(center, prooftree(
   vertical-spacing: 4pt,
   rule(
-    name: [ writable  ref type],
+    name: [ writable unit type: MaybeWrite],
+
+    $twrite cl r, MaybeWrite cr$,
+  )
+))
+
+#h(10pt)
+
+#align(center, prooftree(
+  vertical-spacing: 4pt,
+  rule(
+    name: [ writable ref type],
 
     $twrite t$,
     $twrite rf c space t$,

model_with_structures/synthesizer.ml

@@ -1158,7 +1158,7 @@ struct
         List.mapo (tags_checko mem) vs tps }
   }
 
-  (* - writable type *)
+  (* - writability check *)
 
   let rec is_all_type_writableo tp =
     let open Type in