Coercions: cosmetic

src/core/coercion.ml

@@ -50,8 +50,8 @@ let mem crcmap ts1 ts2 =
 let rec may_match ty1 ty2 =
   match (ty1.ty_node, ty2.ty_node) with
   | Tyapp (ts1, tl1), Tyapp (ts2, tl2) ->
-      if not (ts_equal ts1 ts2) then raise Not_found
-      else List.iter2 may_match tl1 tl2
+      if not (ts_equal ts1 ts2) then raise Not_found;
+      List.iter2 may_match tl1 tl2
   | _  -> ()
 
 let find_crc crcmap ts1 ts2 = Mts.find ts2 (Mts.find ts1 crcmap)