diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-29 12:59:36 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-29 12:59:36 +0000 |
| commit | c4aad6897210f9e55cb41a9dd40fc1fd01321f6b (patch) | |
| tree | 8f0ec6648ead0878735a83db09b919b1c119578f /parsing/astterm.ml | |
| parent | 5094f4879cf86d7cbc5879d3acd9216ea2615f87 (diff) | |
commentaires supprimmés
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@160 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/astterm.ml')
| -rw-r--r-- | parsing/astterm.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index a6fa07f66..fddb47804 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -703,7 +703,7 @@ let fconstr_of_com_sort sigma sign com = fconstr_of_com1 true sigma sign com (* Note: typ is retyped *) -(*** + let constr_of_com_casted sigma env com typ = let sign = context env in let c = raw_constr_of_com sigma sign com in @@ -742,4 +742,3 @@ let fconstruct_with_univ sigma sign com = let (_,j) = with_universes (Mach.fexecute sigma sign) (univ_sp, Constraintab.current_constraints(), c) in j -***) |