fact: Definition Fold (head is_empty seq: StringMap.key) _pop_ _empty_ loop_body := ( Call is_empty _empty_ (seq :: nil); While (!is_empty) ( Call head _pop_ (seq :: nil); loop_body; Call is_empty _empty_ (seq :: nil) ) )%facade.
imports: Bedrock.Memory Bedrock.Platform.Cito.StringMap Bedrock.Platform.Cito.StringMapFacts Bedrock.Platform.Cito.SyntaxExpr Bedrock.Platform.Cito.GLabelMap Bedrock.Platform.Facade.DFacade CertifiedExtraction.Core CertifiedExtraction.PureUtils CertifiedExtraction.FMapUtils CertifiedExtraction.StringMapUtils CertifiedExtraction.PureFacadeLemmas Coq.Strings.String CertifiedExtraction.FacadeWrappers CertifiedExtraction.FacadeNotations