Rewrites stop

[stahlbauer]

Problem: Only one rewrite rule is applied. The rewrites stops after this first rule. Any hint?

Here is the K file:

module TEST-SYNTAX
    imports DOMAINS

    syntax App ::=
            "app" Id ModuleDefinitionList 

    syntax ModuleDefinitionList ::=
            List { ModuleDefinition, "" }

    syntax ModuleDefinition ::=
            "unit" Id "begin" FunctionDefinitionList "end"

    syntax FunctionDefinition ::=
            "fun" Id 

    syntax FunctionDefinitionList ::=
            List { FunctionDefinition, "" }

endmodule

module TEST

    imports DOMAINS
    imports TEST-SYNTAX

    syntax KResult ::= Int

    configuration <T>
        <Modules>
            <Module multiplicity="*" type="List">
                <ModuleId> .K </ModuleId>
                <Threads>
                    <Thread multiplicity="*" type="List">
                        <k> $PGM </k>
                    </Thread>
                </Threads>
                <Memory> .Map </Memory>
                <Functions>
                    <Function multiplicity="*" type="List">
                        <FunctionId> .K </FunctionId>
                        <FunctionBody> .K </FunctionBody>
                    </Function>
                </Functions>
            </Module>
        </Modules>
    </T>

    rule <k> app Id DDL:ModuleDefinitionList => DDL ... </k>

    rule <k> .ModuleDefinitionList => . ... </k>
    rule <k> D:ModuleDefinition Dd:ModuleDefinitionList => D ~> Dd ... </k> [structural]
    rule <k> unit I:Id begin FDL:FunctionDefinitionList end => . </k>
        (.Bag
        <Module>
            <ModuleId>I</ModuleId>
            <Threads>
                <Thread><k>FDL</k></Thread>
                ...
            </Threads>
            <Memory> .Map </Memory>
            ...
        </Module>)

    rule <k> .FunctionDefinitionList => . ... </k>
    rule <k> F:FunctionDefinition Ff:FunctionDefinitionList => F ~> Ff ... </k> [structural]
    rule <k> fun I:Id => . ... </k>
        (.Bag <Function>
            <FunctionId> I </FunctionId>
            <FunctionBody> .K </FunctionBody>
        </Function>)

endmodule

A program test-program.src in this language:

app ExampleProgram

unit MD begin
    fun foo
end

[stahlbauer]

I am working on a smaller example. The way I am using (.Bag ...) seems to be wrong.