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