let mk_kf_assigns_desc assigns = { a_label = Logic_const.pre_label ; (* a_fun = Assigns_Stmt ; *) a_kind = StmtAssigns ; a_assigns = Writes assigns ; }