diff options
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/proof_trees.ml | 1 | ||||
-rw-r--r-- | proofs/proof_type.ml | 1 | ||||
-rw-r--r-- | proofs/proof_type.mli | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/proofs/proof_trees.ml b/proofs/proof_trees.ml index 46c4e907d..8a655b3da 100644 --- a/proofs/proof_trees.ml +++ b/proofs/proof_trees.ml @@ -389,6 +389,7 @@ let ast_of_cvt_redexp = function (* Gives the ast corresponding to a tactic argument *) let ast_of_cvt_arg = function | Identifier id -> nvar (string_of_id id) + | Qualid qid -> nvar (string_of_qualid qid) | Quoted_string s -> str s | Integer n -> num n | Command c -> ope ("COMMAND",[c]) diff --git a/proofs/proof_type.ml b/proofs/proof_type.ml index e1cc05873..319b7ff4f 100644 --- a/proofs/proof_type.ml +++ b/proofs/proof_type.ml @@ -88,6 +88,7 @@ and tactic_arg = | OpenConstr of ((int * constr) list * constr) (* constr with holes *) | Constr_context of constr | Identifier of identifier + | Qualid of qualid | Integer of int | Clause of identifier list | Bindings of Coqast.t substitution diff --git a/proofs/proof_type.mli b/proofs/proof_type.mli index 7025f450a..e49faeb58 100644 --- a/proofs/proof_type.mli +++ b/proofs/proof_type.mli @@ -120,6 +120,7 @@ and tactic_arg = | OpenConstr of ((int * constr) list * constr) (* constr with holes *) | Constr_context of constr | Identifier of identifier + | Qualid of qualid | Integer of int | Clause of identifier list | Bindings of Coqast.t substitution |