[Eva] Defines Db.From.find_deps_no_transitivity functions.

To be removed in the next open-source release.

src/plugins/eva/register.ml

@@ -54,6 +54,12 @@ let find_deps_term_no_transitivity_state state t =
     r.Eval_terms.ldeps
   with Eval_terms.LogicEvalError _ -> raise Db.From.Not_lval
 
+let find_deps_no_transitivity stmt expr =
+  Results.(before stmt |> expr_deps expr)
+
+let find_deps_no_transitivity_state state expr =
+  Results.(in_cvalue_state state |> expr_deps expr)
+
 let eval_predicate ~pre ~here p =
   let open Eval_terms in
   let env = env_annot ~pre ~here () in
@@ -77,6 +83,8 @@ let () =
   Db.Value.valid_behaviors := Logic_inout.valid_behaviors;
   Db.From.find_deps_term_no_transitivity_state :=
     find_deps_term_no_transitivity_state;
+  Db.From.find_deps_no_transitivity := find_deps_no_transitivity;
+  Db.From.find_deps_no_transitivity_state := find_deps_no_transitivity_state;
 
 
   (* -------------------------------------------------------------------------- *)