inline : Fix : the return value can also contain type variable

alt-ergo : trigger pas sur l'égalité

src/printer/alt_ergo.ml

@@ -129,7 +129,8 @@ and print_expr drv fmt = e_apply (print_term drv fmt) (print_fmla drv fmt)
 
 and print_triggers drv fmt tl =
   let filter = function 
-    | Term _ | Fmla {f_node = Fapp _} -> true
+    | Term _ -> true 
+    | Fmla {f_node = Fapp (ps,_)} -> not (ls_equal ps ps_equ)
     | _ -> false in
   let tl = List.map (List.filter filter)
     tl in

src/transform/inlining.ml

@@ -47,6 +47,7 @@ let rec replacet env t =
             (Ty.ty_match mt x.vs_ty y.t_ty, Mvs.add x y mv)
           in
           let (mt,mv) = List.fold_left2 add (Ty.Mtv.empty, Mvs.empty) vs tl in
+          let mt = Ty.ty_match mt (of_option fs.ls_value) t.t_ty  in
           t_ty_subst mt mv t
         with Not_found -> t end
     | _ -> t