aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel/safe_typing.ml
diff options
context:
space:
mode:
Diffstat (limited to 'kernel/safe_typing.ml')
-rw-r--r--kernel/safe_typing.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index 5c1493e2a..f1b97bcd2 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -92,7 +92,7 @@ let rec execute mf env cstr =
| IsSort (Type u) ->
judge_of_type u
- | IsAppL (f,args) ->
+ | IsApp (f,args) ->
let (j,cst1) = execute mf env f in
let (jl,cst2) = execute_array mf env args in
let (j,cst3) =