diff options
Diffstat (limited to 'kernel/safe_typing.ml')
-rw-r--r-- | kernel/safe_typing.ml | 2 |
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) = |