diff options
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index a7ec0cfa1a..c08bb1d86e 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -1112,7 +1112,7 @@ let rec rename_bound_var l = function (* First utilities for avoiding telescope computation for subst_term *) -let prefix_application k (c:constr) (t:constr) = +let prefix_application k (c : constr) (t : constr) = match (whd_castapp c,whd_castapp t) with | ((DOPN(AppL,cl1)),DOPN(AppL,cl2)) -> let l1 = Array.length cl1 @@ -1124,7 +1124,7 @@ let prefix_application k (c:constr) (t:constr) = None | (_,_) -> None -let prefix_application_eta k (c:constr) (t:constr) = +let prefix_application_eta k (c : constr) (t : constr) = match (whd_castapp c,whd_castapp t) with | ((DOPN(AppL,cl1)),DOPN(AppL,cl2)) -> let l1 = Array.length cl1 |