with NCicUtils.Meta_not_found _ as exn -> fail ~exn (lazy "get_goalty")
;;
+let get_subst status =
+ let _,_,_,subst,_ = status#obj in subst
+;;
+
let to_subst status i entry =
let name,height,metasenv,subst,obj = status#obj in
let metasenv = List.filter (fun j,_ -> j <> i) metasenv in
let n,h,metasenv,subst,o = status#obj in
let metasenv, metano, instance, _ =
NCicMetaSubst.mk_meta ~attrs metasenv ctx ~with_type:ty kind in
+ let attrs,_,_ = NCicUtils.lookup_meta metano metasenv in
let metasenv = List.filter (fun j,_ -> j <> metano) metasenv in
let subst = (metano, (attrs, ctx, bo_, ty)) :: subst in
let status = status#set_obj (n,h,metasenv,subst,o) in