avoid Failure "nth" when only one disambiguation pass is enabled

diff --git a/helm/software/matita/dama/integration_algebras.ma b/helm/software/matita/dama/integration_algebras.ma
index 46bebc0e9da6745255d64691b99f5fe6a00eb7e2..dc0ad9d3277cd1274da16cc8caa748e92b77aa2a 100644 (file)
--- a/helm/software/matita/dama/integration_algebras.ma
+++ b/helm/software/matita/dama/integration_algebras.ma
@@ -146,7 +146,7 @@ record integration_riesz_space (R:real) : Type \def
          ) * irs_unit))) 0;
    irs_quotient_space1:
     ∀f,g:irs_archimedean_riesz_space.
-     integral (absolute_value ? irs_archimedean_riesz_space (f - g)) = 0 → f=g
+     integral (absolute_value irs_archimedean_riesz_space (f - g)) = 0 → f=g
  }.
 
 definition induced_norm_fun ≝

diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml
index bd434ed74075db6614e8675376c163f2f052b0e4..79962a35cd86169f625acd0bf2597a7afcf59d77 100644 (file)
--- a/helm/software/matita/matitaGui.ml
+++ b/helm/software/matita/matitaGui.ml
@@ -238,11 +238,13 @@ let rec interactive_error_interp ?(all_passes=false) (source_buffer:GSourceView.
    let remove_non_significant =
      List.filter (fun (_env,_diff,_loc,_msg,significant) -> significant) in
    if all_passes then errorll else
+     let safe_list_nth l n = try List.nth l n with Failure _ -> [] in
     (* We remove passes 1,2 and 5,6 *)
      []::[]
-     ::(remove_non_significant (List.nth errorll 2))
-     ::(remove_non_significant (List.nth errorll 3))
-     ::[]::[] in
+     ::(remove_non_significant (safe_list_nth errorll 2))
+     ::(remove_non_significant (safe_list_nth errorll 3))
+     ::[]::[]
+   in
   let choices =
    let pass = ref 0 in
    List.flatten