fix the discriminator function

src/transform/eliminate_algebraic.ml

@@ -251,8 +251,8 @@ let add_discriminator (state,task) ts ty csl =
     let ax = t_forall_close (List.rev ul) [[t1]] ax in
     add_prop_decl task Paxiom pr ax
   in
-  let dl_add task = function
-    | c :: cl -> List.fold_left (d_add c) task cl
+  let rec dl_add task = function
+    | c :: cl -> dl_add (List.fold_left (d_add c) task cl) cl
     | _ -> task
   in
   state, dl_add task csl