X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicEnvironment.mli;h=e3def568e4bdeba80ae3b4ad147ed05eb6deaba2;hb=3bb4ce11fb9d4c6375483a80344beb94c4517dd7;hp=99244f47f7c25e2bef0efe258507c9e5b49b81c0;hpb=d1010e05c0d73e3b44d3d971592bd8be9e1e0752;p=helm.git diff --git a/helm/ocaml/cic_proof_checking/cicEnvironment.mli b/helm/ocaml/cic_proof_checking/cicEnvironment.mli index 99244f47f..e3def568e 100644 --- a/helm/ocaml/cic_proof_checking/cicEnvironment.mli +++ b/helm/ocaml/cic_proof_checking/cicEnvironment.mli @@ -61,6 +61,9 @@ val is_type_checked : ?trust:bool -> UriManager.uri -> type_checked_obj (* again in the future (is_type_checked will return true) *) val set_type_checking_info : UriManager.uri -> unit +(* We need this in the Qed. *) +val add_type_checked_term : UriManager.uri -> Cic.obj -> unit + (* get_cooked_obj ~trust uri *) (* returns the object if it is already type-checked or if it can be *) (* trusted (if [trust] = true and the trusting function accepts it) *) @@ -83,3 +86,6 @@ val dump_to_channel : ?callback:(string -> unit) -> out_channel -> unit val restore_from_channel : ?callback:(string -> unit) -> in_channel -> unit val empty : unit -> unit +(* for filtering in tacticChaser *) +(* NEW *) +val in_cache : UriManager.uri -> bool