Add test for #138

Corrected typo in Pretty.ml

examples/bts/138.mlw

+module Test 
+
+  use int.Int
+
+  type a = < range 22 46 >
+  
+  let f (b : a) =
+    requires {a'int b = 42}
+    ensures {a'int result = a'int b}
+    (42:a)
+    
+end
+
+module Test2
+  use int.Int
+
+  let f (b : int) =
+    requires {b = 42}
+    ensures {result = b}
+    42
+    
+end
+
+module Test1
+  clone Test2 as T (* Replace with Test does not work *)
+  
+end
\ No newline at end of file

examples/bts/138/why3session.xml

+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE why3session PUBLIC "-//Why3//proof session v5//EN"
+"http://why3.lri.fr/why3session.dtd">
+<why3session shape_version="5">
+<file name="../138.mlw">
+<theory name="Test">
+ <goal name="VC f" expl="VC for f">
+ </goal>
+</theory>
+<theory name="Test2">
+ <goal name="VC f" expl="VC for f">
+ </goal>
+</theory>
+</file>
+</why3session>

src/core/pretty.ml

@@ -403,7 +403,7 @@ let print_ty_decl fmt ts =
     | NoDef     -> ()
     | Alias ty  -> fprintf fmt " =@ %a" print_ty ty
     | Range ir  ->
-        fprintf fmt " =@ <range %s .. %s>"
+        fprintf fmt " =@ <range %s %s>"
           (BigInt.to_string ir.Number.ir_lower)
           (BigInt.to_string ir.Number.ir_upper)
     | Float irf ->