tcProcedureAnns :: ProverK loc m => Bool -> [ProcedureAnnotation Identifier loc] -> TcM m [ProcedureAnnotation GIdentifier (Typed loc)]
tcProcedureAnns isAxiom xs = do
    (inlines,anns') <- Utils.mapAndUnzipM (tcProcedureAnn isAxiom) xs
    case catMaybes inlines of
        [] -> return ()
        is -> chgDecClassM $ chgInlineDecClass (last is)
    return anns'
tcProcedureAnns :: ProverK loc m => Bool -> [ProcedureAnnotation Identifier loc] -> TcM m [ProcedureAnnotation GIdentifier (Typed loc)]
tcProcedureAnns isAxiom xs = do
    (inlines,anns') <- Utils.mapAndUnzipM (tcProcedureAnn isAxiom) xs
    case catMaybes inlines of
        [] -> return ()
        is -> chgDecClassM $ chgInlineDecClass (last is)
    return anns'
tcProcedureAnns isAxiom xs = do
    (inlines,anns') <- Utils.mapAndUnzipM (tcProcedureAnn isAxiom) xs
    case catMaybes inlines of
        [] -> return ()
        is -> chgDecClassM $ chgInlineDecClass (last is)
    return anns'