assert false)
| NCicTypeChecker.TypeCheckerFailure msg ->
prerr_endline (Lazy.force msg);
+ prerr_endline (
+ "typeof: " ^ NCicPp.ppterm ~metasenv ~subst ~context t ^
+ ppcontext ~metasenv ~subst context ^
+ ppmetasenv ~subst metasenv);
pp msg; assert false
in
let lty = NCicSubstitution.subst_meta lc ty in