ocaml - K フレームワークが OCaml バックエンドでエラーを生成する

Question

私はK セマンティクス フレームワークを使用しており、チュートリアルを実行しています。これは私の TEST1.k です。

module TEST1-SYNTAX 
import DOMAINS


syntax Fun ::= "add(" Pgm "," Pgm ")"        [strict]
syntax Pgm ::= Int 
            | Fun

endmodule

module TEST1
import TEST1-SYNTAX

    rule add( I1:Int , I2:Int) => I1 +Int I2

    configuration <T  color="blue">
                <k color ="red"> $PGM:Pgm </k> 


    </T>
endmodule

しかし、コマンド Kompile Test1.k を実行すると、次のエラーが発生します。

File "realdef.ml", line 2151, characters 331-338:
Error: This variant expression is expected to have type bool
   The constructor KApply1 does not belong to type bool
 [Error] Critical: ocamlopt returned nonzero exit code: 2
Examine output to see errors.