bugfix: compute also used goals as rewrite rules

src/transform/compute.ml

@@ -37,9 +37,7 @@ let meta_begin_compute_context =
 
 let collect_rule_decl prs e d =
   match d.Decl.d_node with
-    | Decl.Dtype _ | Decl.Ddata _ | Decl.Dparam _ | Decl.Dind  _
-    | Decl.Dlogic _ -> e
-    | Decl.Dprop(_, pr, t) ->
+    | Decl.Dprop((Plemma|Paxiom), pr, t) ->
       if Decl.Spr.mem pr prs then
         try add_rule t e
         with NotARewriteRule msg ->
@@ -47,6 +45,7 @@ let collect_rule_decl prs e d =
             Pretty.print_pr pr msg;
           e
       else e
+    | _ -> e
 
 let collect_rules p env km prs t =
   Task.task_fold