let is_macro_section = function
  | S_Type | S_Cons 
  | S_Logic_Sig | S_Logic_Prop 
  | S_Model_Sig | S_Model_Prop 
  | S_User_Sig | S_User_Prop -> false
  | S_Logic_Def | S_Model_Def -> true