let dhas_ctype : (typ -> term -> pred) ref = ref (fun _ _ -> assert false)