diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-29 18:09:30 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-29 18:09:30 +0000 |
| commit | 719506ef7a6629e582207fbebc5969c0e2724ca0 (patch) | |
| tree | b179c257df61e8d3a5694fc47b27949f2edfd0ee /toplevel | |
| parent | 57dd4ac5e1f4ec162c8560af02a734668701bca7 (diff) | |
Complétion commit précédent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6381 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/class.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 355cdbc9c..9d288c81e 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -94,6 +94,7 @@ let explain_coercion_error g = function let rec arity_sort (ctx,a) = match kind_of_term a with | Sort (Prop _ | Type _) -> List.length ctx + | _ -> raise Not_found let check_reference_arity ref = let t = Global.type_of_global ref in |