(\lambda f. (f 0 (le_n 0))
  \lambda n. \lambda H. (refl_equal nat 0)))
### (* METASENV after disambiguation  *)
f : (nat->((le O O)->(eq nat O O))); _ : nat |- ?14: Type
f : (nat->((le O O)->(eq nat O O))); _ : nat |- ?15: ?14[-2 ; -1]
### (* TERM after disambiguation      *)
([f:(nat->((le O O)->(eq nat O O)))](f O (le_n O)) [n:nat][H:(le O O)](refl_equal nat O))
### (* TYPE_OF the disambiguated term *)
(eq nat O O)
### (* REDUCED disambiguated term     *)
(refl_equal nat O)