diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-26 16:49:04 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-26 16:49:04 +0000 |
| commit | a5de858fb3d47082124edfa8e421b8c80c41c7e2 (patch) | |
| tree | dd112396b0f1b7906f371a04f8d77e49f5e0a1ec /proofs/proof_trees.ml | |
| parent | c5ebef7a746564f8ac41c19d5ac9ca64f60dcf4a (diff) | |
Nettoyage pretyping; ise_resolve_* devient understand_*; Ajout d'une notion de 'OpenConstr' constitué d'un terme avec Métas et d'une liste de types pour les métas
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@615 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/proof_trees.ml')
| -rw-r--r-- | proofs/proof_trees.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/proofs/proof_trees.ml b/proofs/proof_trees.ml index b51866628..30e5aeba2 100644 --- a/proofs/proof_trees.ml +++ b/proofs/proof_trees.ml @@ -345,6 +345,8 @@ let ast_of_cvt_arg = function | Command c -> ope ("COMMAND",[c]) | Constr c -> ope ("COMMAND",[ast_of_constr false (Global.env ()) c]) + | OpenConstr (_,c) -> + ope ("COMMAND",[ast_of_constr false (Global.env ()) c]) | Constr_context _ -> anomalylabstrm "ast_of_cvt_arg" [<'sTR "Constr_context argument could not be used">] |