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,16 +1471,16 @@ $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],
+    name: [ writable unit type: AlwaysWrite],
 
-    $twrite cl r, MaybeWrite cr$,
+    $twrite cl r, AlwaysWrite cr$,
   )
 ))
 
@@ -1489,9 +1489,9 @@ $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 unit type: AlwaysWrite],
+    name: [ writable unit type: MaybeWrite],
 
-    $twrite cl r, AlwaysWrite cr$,
+    $twrite cl r, MaybeWrite cr$,
   )
 ))
 

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