X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FmQueryGenerator.ml;h=78ce04e6c81c500fbdacab9a9b9f106cbd35d433;hb=89262281b6e83bd2321150f81f1a0583645eb0c8;hp=9f52c2f20a8f25661d1b6ba403bfdc5d1359c9e7;hpb=36a85ffd9542d5a726d154cd8bf37d417da2cf88;p=helm.git

diff --git a/helm/gTopLevel/mQueryGenerator.ml b/helm/gTopLevel/mQueryGenerator.ml
index 9f52c2f20..78ce04e6c 100644
--- a/helm/gTopLevel/mQueryGenerator.ml
+++ b/helm/gTopLevel/mQueryGenerator.ml
@@ -185,7 +185,7 @@ let execute_query query =
 
 let locate s =
    let module M = MathQL in
-   let q = M.Ref (M.Fun "objectName" (M.Const [s])) in
+   let q = M.Ref (M.Attribute true M.RefineExact ("objectName", []) (M.Const [s])) in
    execute_query q
 
 let backward e c t level =
@@ -193,8 +193,8 @@ let backward e c t level =
    let v_pos = M.Const ["MainConclusion"; "InConclusion"] in
    let q_where = M.Sub (M.RefOf (
       M.Select ("uri", 
-                M.Relation (M.ExactOp, ["refObj"], M.RVar "uri0", ["pos"]),
-                M.Ex ["uri"] (M.Meet (M.VVar "positions", M.Record ("uri", "pos"))) 
+                M.Relation (false, M.RefineExact, ("refObj", []), M.RVar "uri0", ["pos"]),
+                M.Ex ["uri"] (M.Meet (M.VVar "positions", M.Record ("uri", ("pos", [])))) 
 	       )),      M.VVar "universe"
 		       )
    in
@@ -208,8 +208,8 @@ let backward e c t level =
    let build_select (r, b, v) =
       let pos = if b then "MainConclusion" else "InConclusion" in
       M.Select ("uri", 
-                M.Relation (M.ExactOp, ["backPointer"], M.Ref (M.Const [r]), ["pos"]),
-                M.Ex ["uri"] (M.Sub (M.Const [pos], M.Record ("uri", "pos")))
+                M.Relation (false, M.RefineExact, ("backPointer", []), M.Ref (M.Const [r]), ["pos"]),
+                M.Ex ["uri"] (M.Sub (M.Const [pos], M.Record ("uri", ("pos", []))))
                )
    in 
    let rec build_intersect = function