New line after let in

Author: InfiniteEchoes

CoqOfRust/examples/default/examples/custom/constructor_as_function.v

@@ -29,7 +29,8 @@ Definition matching (τ : list Ty.t) (α : list Value.t) : M :=
             M.alloc (Value.Integer Integer.I32 0);
           fun γ =>
             let γ0_0 := M.get_tuple_field γ 0 in
-            let γ0_1 := M.get_tuple_field γ 1 in M.alloc (Value.Integer Integer.I32 1)
+            let γ0_1 := M.get_tuple_field γ 1 in
+            M.alloc (Value.Integer Integer.I32 1)
         ] in
     M.read α0
   | _, _ => M.impossible
@@ -146,14 +147,16 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                   Value.Integer Integer.I32 3
                 ]) in
           let* α6 := M.call_closure α4 [ α5 ] in
-          let* α7 := M.read α6 in M.pure (M.pointer_coercion α7) in
+          let* α7 := M.read α6 in
+          M.pure (M.pointer_coercion α7) in
       let* α9 := M.call_closure α3 [ α8 ] in
       let* α10 := M.call_closure α2 [ α9 ] in
       let* α11 :=
         M.call_closure
           α1
           [ α10; M.constructor_as_closure "constructor_as_function::Constructor" ] in
-      let* α12 := M.call_closure α0 [ α11 ] in M.alloc α12 in
+      let* α12 := M.call_closure α0 [ α11 ] in
+      M.alloc α12 in
     let* _ :=
       let* _ :=
         let* α0 := M.get_function "std::io::stdio::_print" [] in
@@ -163,7 +166,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
             let* α2 := M.read (mk_str "") in
             let* α3 := M.read (mk_str "
 ") in
-            let* α4 := M.alloc (Value.Array [ α2; α3 ]) in M.pure (M.pointer_coercion α4) in
+            let* α4 := M.alloc (Value.Array [ α2; α3 ]) in
+            M.pure (M.pointer_coercion α4) in
         let* α9 :=
           (* Unsize *)
             let* α6 :=
@@ -177,10 +181,13 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                     ]
                 ] in
             let* α7 := M.call_closure α6 [ v ] in
-            let* α8 := M.alloc (Value.Array [ α7 ]) in M.pure (M.pointer_coercion α8) in
+            let* α8 := M.alloc (Value.Array [ α7 ]) in
+            M.pure (M.pointer_coercion α8) in
         let* α10 := M.call_closure α1 [ α5; α9 ] in
-        let* α11 := M.call_closure α0 [ α10 ] in M.alloc α11 in
+        let* α11 := M.call_closure α0 [ α10 ] in
+        M.alloc α11 in
       M.alloc (Value.Tuple []) in
-    let* α0 := M.alloc (Value.Tuple []) in M.read α0
+    let* α0 := M.alloc (Value.Tuple []) in
+    M.read α0
   | _, _ => M.impossible
   end.

CoqOfRust/examples/default/examples/custom/hello_world.v

@@ -54,7 +54,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
             let* α2 := M.read (mk_str "") in
             let* α3 := M.read (mk_str "
 ") in
-            let* α4 := M.alloc (Value.Array [ α2; α3 ]) in M.pure (M.pointer_coercion α4) in
+            let* α4 := M.alloc (Value.Array [ α2; α3 ]) in
+            M.pure (M.pointer_coercion α4) in
         let* α10 :=
           (* Unsize *)
             let* α6 :=
@@ -64,9 +65,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                 [ Ty.apply (Ty.path "&") [ Ty.path "str" ] ] in
             let* α7 := M.get_constant "hello_world::message" in
             let* α8 := M.call_closure α6 [ α7 ] in
-            let* α9 := M.alloc (Value.Array [ α8 ]) in M.pure (M.pointer_coercion α9) in
+            let* α9 := M.alloc (Value.Array [ α8 ]) in
+            M.pure (M.pointer_coercion α9) in
         let* α11 := M.call_closure α1 [ α5; α10 ] in
-        let* α12 := M.call_closure α0 [ α11 ] in M.alloc α12 in
+        let* α12 := M.call_closure α0 [ α11 ] in
+        M.alloc α12 in
       M.alloc (Value.Tuple []) in
     let* number :=
       M.alloc (Value.StructTuple "core::option::Option::Some" [ Value.Integer Integer.I32 7 ]) in
@@ -90,7 +93,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                     let* α2 := M.read (mk_str "Matched ") in
                     let* α3 := M.read (mk_str "!
 ") in
-                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in M.pure (M.pointer_coercion α4) in
+                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in
+                    M.pure (M.pointer_coercion α4) in
                 let* α9 :=
                   (* Unsize *)
                     let* α6 :=
@@ -99,9 +103,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                         "new_debug"
                         [ Ty.path "i32" ] in
                     let* α7 := M.call_closure α6 [ i ] in
-                    let* α8 := M.alloc (Value.Array [ α7 ]) in M.pure (M.pointer_coercion α8) in
+                    let* α8 := M.alloc (Value.Array [ α7 ]) in
+                    M.pure (M.pointer_coercion α8) in
                 let* α10 := M.call_closure α1 [ α5; α9 ] in
-                let* α11 := M.call_closure α0 [ α10 ] in M.alloc α11 in
+                let* α11 := M.call_closure α0 [ α10 ] in
+                M.alloc α11 in
               M.alloc (Value.Tuple []) in
             M.alloc (Value.Tuple []);
           fun γ => M.alloc (Value.Tuple [])
@@ -124,7 +130,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                     let* α2 := M.read (mk_str "Matched ") in
                     let* α3 := M.read (mk_str "!
 ") in
-                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in M.pure (M.pointer_coercion α4) in
+                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in
+                    M.pure (M.pointer_coercion α4) in
                 let* α9 :=
                   (* Unsize *)
                     let* α6 :=
@@ -133,9 +140,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                         "new_debug"
                         [ Ty.path "i32" ] in
                     let* α7 := M.call_closure α6 [ j ] in
-                    let* α8 := M.alloc (Value.Array [ α7 ]) in M.pure (M.pointer_coercion α8) in
+                    let* α8 := M.alloc (Value.Array [ α7 ]) in
+                    M.pure (M.pointer_coercion α8) in
                 let* α10 := M.call_closure α1 [ α5; α9 ] in
-                let* α11 := M.call_closure α0 [ α10 ] in M.alloc α11 in
+                let* α11 := M.call_closure α0 [ α10 ] in
+                M.alloc α11 in
               M.alloc (Value.Tuple []) in
             M.alloc (Value.Tuple []);
           fun γ =>
@@ -148,9 +157,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                   (* Unsize *)
                     let* α2 := M.read (mk_str "Didn't match a number. Let's go with a letter!
 ") in
-                    let* α3 := M.alloc (Value.Array [ α2 ]) in M.pure (M.pointer_coercion α3) in
+                    let* α3 := M.alloc (Value.Array [ α2 ]) in
+                    M.pure (M.pointer_coercion α3) in
                 let* α5 := M.call_closure α1 [ α4 ] in
-                let* α6 := M.call_closure α0 [ α5 ] in M.alloc α6 in
+                let* α6 := M.call_closure α0 [ α5 ] in
+                M.alloc α6 in
               M.alloc (Value.Tuple []) in
             M.alloc (Value.Tuple [])
         ] in
@@ -173,7 +184,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                     let* α2 := M.read (mk_str "Matched ") in
                     let* α3 := M.read (mk_str "!
 ") in
-                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in M.pure (M.pointer_coercion α4) in
+                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in
+                    M.pure (M.pointer_coercion α4) in
                 let* α9 :=
                   (* Unsize *)
                     let* α6 :=
@@ -182,9 +194,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                         "new_debug"
                         [ Ty.path "i32" ] in
                     let* α7 := M.call_closure α6 [ i ] in
-                    let* α8 := M.alloc (Value.Array [ α7 ]) in M.pure (M.pointer_coercion α8) in
+                    let* α8 := M.alloc (Value.Array [ α7 ]) in
+                    M.pure (M.pointer_coercion α8) in
                 let* α10 := M.call_closure α1 [ α5; α9 ] in
-                let* α11 := M.call_closure α0 [ α10 ] in M.alloc α11 in
+                let* α11 := M.call_closure α0 [ α10 ] in
+                M.alloc α11 in
               M.alloc (Value.Tuple []) in
             M.alloc (Value.Tuple []);
           fun γ =>
@@ -195,7 +209,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                 fun γ =>
                   let γ := M.use i_like_letters in
                   let* _ :=
-                    let* α0 := M.read γ in M.is_constant_or_break_match α0 (Value.Bool true) in
+                    let* α0 := M.read γ in
+                    M.is_constant_or_break_match α0 (Value.Bool true) in
                   let* _ :=
                     let* _ :=
                       let* α0 := M.get_function "std::io::stdio::_print" [] in
@@ -209,7 +224,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                           let* α3 := M.alloc (Value.Array [ α2 ]) in
                           M.pure (M.pointer_coercion α3) in
                       let* α5 := M.call_closure α1 [ α4 ] in
-                      let* α6 := M.call_closure α0 [ α5 ] in M.alloc α6 in
+                      let* α6 := M.call_closure α0 [ α5 ] in
+                      M.alloc α6 in
                     M.alloc (Value.Tuple []) in
                   M.alloc (Value.Tuple []);
                 fun γ =>
@@ -227,7 +243,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                           let* α3 := M.alloc (Value.Array [ α2 ]) in
                           M.pure (M.pointer_coercion α3) in
                       let* α5 := M.call_closure α1 [ α4 ] in
-                      let* α6 := M.call_closure α0 [ α5 ] in M.alloc α6 in
+                      let* α6 := M.call_closure α0 [ α5 ] in
+                      M.alloc α6 in
                     M.alloc (Value.Tuple []) in
                   M.alloc (Value.Tuple [])
               ]

CoqOfRust/examples/default/examples/custom/if_let.v

@@ -15,7 +15,8 @@ Definition order (τ : list Ty.t) (α : list Value.t) : M :=
     let* b4 := M.alloc b4 in
     let* α0 := M.read b1 in
     let* α1 := LogicalOp.and α0 (M.read b2) in
-    let* α2 := LogicalOp.and α1 (M.read b3) in LogicalOp.and α2 (M.read b4)
+    let* α2 := LogicalOp.and α1 (M.read b3) in
+    LogicalOp.and α2 (M.read b4)
   | _, _ => M.impossible
   end.
 
@@ -65,11 +66,13 @@ Definition extract_value (τ : list Ty.t) (α : list Value.t) : M :=
                 fun γ =>
                   let* γ0_0 :=
                     M.get_struct_tuple_field_or_break_match γ "if_let::Container::Left" 0 in
-                  let* value := M.copy γ0_0 in M.pure (Value.Tuple [ value ]);
+                  let* value := M.copy γ0_0 in
+                  M.pure (Value.Tuple [ value ]);
                 fun γ =>
                   let* γ0_0 :=
                     M.get_struct_tuple_field_or_break_match γ "if_let::Container::Right" 0 in
-                  let* value := M.copy γ0_0 in M.pure (Value.Tuple [ value ])
+                  let* value := M.copy γ0_0 in
+                  M.pure (Value.Tuple [ value ])
               ]
               (M.closure
                 (fun γ => match γ with | [ value ] => M.pure value | _ => M.impossible end));
@@ -134,7 +137,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                     let* α2 := M.read (mk_str "if: ") in
                     let* α3 := M.read (mk_str "
 ") in
-                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in M.pure (M.pointer_coercion α4) in
+                    let* α4 := M.alloc (Value.Array [ α2; α3 ]) in
+                    M.pure (M.pointer_coercion α4) in
                 let* α9 :=
                   (* Unsize *)
                     let* α6 :=
@@ -143,9 +147,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                         "new_display"
                         [ Ty.path "i32" ] in
                     let* α7 := M.call_closure α6 [ y ] in
-                    let* α8 := M.alloc (Value.Array [ α7 ]) in M.pure (M.pointer_coercion α8) in
+                    let* α8 := M.alloc (Value.Array [ α7 ]) in
+                    M.pure (M.pointer_coercion α8) in
                 let* α10 := M.call_closure α1 [ α5; α9 ] in
-                let* α11 := M.call_closure α0 [ α10 ] in M.alloc α11 in
+                let* α11 := M.call_closure α0 [ α10 ] in
+                M.alloc α11 in
               M.alloc (Value.Tuple []) in
             M.alloc (Value.Tuple []);
           fun γ => M.alloc (Value.Tuple [])
@@ -167,7 +173,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                   let* α2 := M.read (mk_str "match: ") in
                   let* α3 := M.read (mk_str "
 ") in
-                  let* α4 := M.alloc (Value.Array [ α2; α3 ]) in M.pure (M.pointer_coercion α4) in
+                  let* α4 := M.alloc (Value.Array [ α2; α3 ]) in
+                  M.pure (M.pointer_coercion α4) in
               let* α9 :=
                 (* Unsize *)
                   let* α6 :=
@@ -176,9 +183,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                       "new_display"
                       [ Ty.path "i32" ] in
                   let* α7 := M.call_closure α6 [ y ] in
-                  let* α8 := M.alloc (Value.Array [ α7 ]) in M.pure (M.pointer_coercion α8) in
+                  let* α8 := M.alloc (Value.Array [ α7 ]) in
+                  M.pure (M.pointer_coercion α8) in
               let* α10 := M.call_closure α1 [ α5; α9 ] in
-              let* α11 := M.call_closure α0 [ α10 ] in M.alloc α11 in
+              let* α11 := M.call_closure α0 [ α10 ] in
+              M.alloc α11 in
             M.alloc (Value.Tuple []);
           fun γ => M.alloc (Value.Tuple [])
         ] in
@@ -195,7 +204,9 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
               let* α0 := M.read y in
               let* α1 := M.alloc (BinOp.Pure.gt α0 (Value.Integer Integer.I32 3)) in
               M.pure (M.use α1) in
-            let* _ := let* α0 := M.read γ in M.is_constant_or_break_match α0 (Value.Bool true) in
+            let* _ :=
+              let* α0 := M.read γ in
+              M.is_constant_or_break_match α0 (Value.Bool true) in
             let γ := x in
             let* γ0_0 := M.get_struct_tuple_field_or_break_match γ "core::option::Option::Some" 0 in
             let* z := M.copy γ0_0 in
@@ -228,7 +239,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                     let* α11 := M.alloc (Value.Array [ α8; α10 ]) in
                     M.pure (M.pointer_coercion α11) in
                 let* α13 := M.call_closure α1 [ α6; α12 ] in
-                let* α14 := M.call_closure α0 [ α13 ] in M.alloc α14 in
+                let* α14 := M.call_closure α0 [ α13 ] in
+                M.alloc α14 in
               M.alloc (Value.Tuple []) in
             M.alloc (Value.Tuple []);
           fun γ => M.alloc (Value.Tuple [])
@@ -243,8 +255,11 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
             let* γ0_0 := M.get_struct_tuple_field_or_break_match γ "core::option::Option::Some" 0 in
             let* y := M.copy γ0_0 in
             let* γ :=
-              let* α0 := M.read y in M.alloc (BinOp.Pure.gt α0 (Value.Integer Integer.I32 3)) in
-            let* _ := let* α0 := M.read γ in M.is_constant_or_break_match α0 (Value.Bool true) in
+              let* α0 := M.read y in
+              M.alloc (BinOp.Pure.gt α0 (Value.Integer Integer.I32 3)) in
+            let* _ :=
+              let* α0 := M.read γ in
+              M.is_constant_or_break_match α0 (Value.Bool true) in
             let γ := x in
             let* γ0_0 := M.get_struct_tuple_field_or_break_match γ "core::option::Option::Some" 0 in
             let* z := M.copy γ0_0 in
@@ -276,7 +291,8 @@ Definition main (τ : list Ty.t) (α : list Value.t) : M :=
                   let* α11 := M.alloc (Value.Array [ α8; α10 ]) in
                   M.pure (M.pointer_coercion α11) in
               let* α13 := M.call_closure α1 [ α6; α12 ] in
-              let* α14 := M.call_closure α0 [ α13 ] in M.alloc α14 in
+              let* α14 := M.call_closure α0 [ α13 ] in
+              M.alloc α14 in
             M.alloc (Value.Tuple []);
           fun γ => M.alloc (Value.Tuple [])
         ] in

CoqOfRust/examples/default/examples/custom/impl_param.v

@@ -23,11 +23,13 @@ Definition with_impls (τ : list Ty.t) (α : list Value.t) : M :=
     let* x := M.copy func in
     let* _ :=
       let* α0 := M.get_trait_method "core::default::Default" impl_Default [] "default" [] in
-      let* α1 := M.call_closure α0 [] in M.assign x α1 in
+      let* α1 := M.call_closure α0 [] in
+      M.assign x α1 in
     let* y := M.copy func2 in
     let* _ :=
       let* α0 := M.get_trait_method "core::default::Default" impl_Default'1 [] "default" [] in
-      let* α1 := M.call_closure α0 [] in M.assign y α1 in
+      let* α1 := M.call_closure α0 [] in
+      M.assign y α1 in
     let* z := M.copy foo in
     let* b :=
       let* α0 :=
@@ -40,7 +42,9 @@ Definition with_impls (τ : list Ty.t) (α : list Value.t) : M :=
       let* α1 := M.read x in
       let* α2 := M.read y in
       let* α3 := M.read z in
-      let* α4 := M.call_closure α0 [ Value.Tuple [ α1; α2; α3 ] ] in M.alloc α4 in
-    let* α0 := M.alloc (Value.Tuple []) in M.read α0
+      let* α4 := M.call_closure α0 [ Value.Tuple [ α1; α2; α3 ] ] in
+      M.alloc α4 in
+    let* α0 := M.alloc (Value.Tuple []) in
+    M.read α0
   | _, _ => M.impossible
   end.

CoqOfRust/examples/default/examples/custom/module_duplicate.v

@@ -19,11 +19,14 @@ Module foo.
               (* Unsize *)
                 let* α2 := M.read (mk_str "foo::gre::bar
 ") in
-                let* α3 := M.alloc (Value.Array [ α2 ]) in M.pure (M.pointer_coercion α3) in
+                let* α3 := M.alloc (Value.Array [ α2 ]) in
+                M.pure (M.pointer_coercion α3) in
             let* α5 := M.call_closure α1 [ α4 ] in
-            let* α6 := M.call_closure α0 [ α5 ] in M.alloc α6 in
+            let* α6 := M.call_closure α0 [ α5 ] in
+            M.alloc α6 in
           M.alloc (Value.Tuple []) in
-        let* α0 := M.alloc (Value.Tuple []) in M.read α0
+        let* α0 := M.alloc (Value.Tuple []) in
+        M.read α0
       | _, _ => M.impossible
       end.
   End gre.
@@ -45,14 +48,18 @@ Module foo.
             (* Unsize *)
               let* α2 := M.read (mk_str "foo::bar
 ") in
-              let* α3 := M.alloc (Value.Array [ α2 ]) in M.pure (M.pointer_coercion α3) in
+              let* α3 := M.alloc (Value.Array [ α2 ]) in
+              M.pure (M.pointer_coercion α3) in
           let* α5 := M.call_closure α1 [ α4 ] in
-          let* α6 := M.call_closure α0 [ α5 ] in M.alloc α6 in
+          let* α6 := M.call_closure α0 [ α5 ] in
+          M.alloc α6 in
         M.alloc (Value.Tuple []) in
       let* _ :=
         let* α0 := M.get_function "module_duplicate::foo::gre::f_foo_gre" [] in
-        let* α1 := M.call_closure α0 [] in M.alloc α1 in
-      let* α0 := M.alloc (Value.Tuple []) in M.read α0
+        let* α1 := M.call_closure α0 [] in
+        M.alloc α1 in
+      let* α0 := M.alloc (Value.Tuple []) in
+      M.read α0
     | _, _ => M.impossible
     end.
 End foo.
@@ -67,7 +74,9 @@ Definition f (τ : list Ty.t) (α : list Value.t) : M :=
   | [], [] =>
     let* _ :=
       let* α0 := M.get_function "module_duplicate::foo::f_foo" [] in
-      let* α1 := M.call_closure α0 [] in M.alloc α1 in
-    let* α0 := M.alloc (Value.Tuple []) in M.read α0
+      let* α1 := M.call_closure α0 [] in
+      M.alloc α1 in
+    let* α0 := M.alloc (Value.Tuple []) in
+    M.read α0
   | _, _ => M.impossible
   end.