include must not add aliases in the script!

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index 83aa603626a7300bf81a6146e97b0f3f67466cd2..9ca48d9cab897d2dc4f996f6a0c3d48a56f4ba2d 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -83,8 +83,8 @@ let eval_with_engine status user_goal parsed_text st =
   let new_status = MatitaEngine.eval_ast status st in
   let new_aliases =
     match ex with
-      | TA.Command (_, TA.Alias _) ->
-          DisambiguateTypes.Environment.empty
+      | TA.Command (_, TA.Alias _)
+      | TA.Command (_, TA.Include _) -> DisambiguateTypes.Environment.empty
       | _ -> MatitaSync.alias_diff ~from:status new_status
   in
   (* we remove the defined object since we consider them "automathic aliases" *)