diff options
Diffstat (limited to 'kernel/univ.ml')
-rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index f72f6f26a..50692ca59 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -968,7 +968,7 @@ struct (univcst, UContext.make (Instance.append inst freshunivs, create_trivial_subtyping inst freshunivs)) - let subtyping_susbst (univcst, subtypcst) = + let subtyping_subst (univcst, subtypcst) = let (ctx, ctx') = (halve_context (UContext.instance subtypcst))in Array.fold_left2 (fun subst l1 l2 -> LMap.add l1 l2 subst) LMap.empty ctx ctx' |