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