Improve ReasonLIGO pretty printing output.

src/passes/1-parser/reasonligo/Parser.mly

@@ -278,8 +278,7 @@ let_binding:
   }
 | par(closed_irrefutable) type_annotation? "=" expr {
     wild_error $4;
-    Scoping.check_pattern $1.value.inside;
+    {binders = $1.value.inside, []; lhs_type=$2; eq=$3; let_rhs=$4}
-    {binders = PPar $1, []; lhs_type=$2; eq=$3; let_rhs=$4}
   }
 | tuple(sub_irrefutable) type_annotation? "=" expr {
     wild_error $4;

src/test/contracts/expected/let_multiple.religo

@@ -1,13 +1,13 @@
-let (((x: int), (y: int))) = (1, 2);
+let ((x: int), (y: int)) = (1, 2);
 
 let main = ((p: unit)): int => x + y;
 
-let (((x: int), (y: int))) = (3, 3);
+let ((x: int), (y: int)) = (3, 3);
 
 let main_paren = ((p: unit)): int => x + y;
 
 let foobar: (int, int) = (23, 42);
 
-let (((foo: int), (bar: int))) = foobar;
+let ((foo: int), (bar: int)) = foobar;
 
 let non_tuple_rhs = ((p: unit)): int => foo + bar;

src/test/contracts/expected/multisig.religo

@@ -51,7 +51,7 @@ let check_message =
             :
               (nat, authorized_keys) => 
               {
-                let ((valid, keys)) = vk;
+                let (valid, keys) = vk;
                 switch(keys) {
                 | [] => vk
                 | [key, ...keys] =>
@@ -75,7 +75,7 @@ let check_message =
                     }
                 }
               };
-          let ((valid, keys)) = 
+          let (valid, keys) = 
             List.fold(aux, param.signatures, (valid, keys));
           if(valid
           < s.threshold) {