src/FOLP/ex/Prolog.ML
changeset 32091 30e2ffbba718
parent 24584 01e83ffa6c54
child 35762 af3ff2ba4c54
equal deleted inserted replaced
32090:39acf19e9f3a 32091:30e2ffbba718
    11 Goal "app(a:b:c:Nil, d:e:Nil, ?x)";
    11 Goal "app(a:b:c:Nil, d:e:Nil, ?x)";
    12 by (resolve_tac [appNil,appCons] 1);
    12 by (resolve_tac [appNil,appCons] 1);
    13 by (resolve_tac [appNil,appCons] 1);
    13 by (resolve_tac [appNil,appCons] 1);
    14 by (resolve_tac [appNil,appCons] 1);
    14 by (resolve_tac [appNil,appCons] 1);
    15 by (resolve_tac [appNil,appCons] 1);
    15 by (resolve_tac [appNil,appCons] 1);
    16 prth (result());
    16 result();
    17 
    17 
    18 Goal "app(?x, c:d:Nil, a:b:c:d:Nil)";
    18 Goal "app(?x, c:d:Nil, a:b:c:d:Nil)";
    19 by (REPEAT (resolve_tac [appNil,appCons] 1));
    19 by (REPEAT (resolve_tac [appNil,appCons] 1));
    20 result();
    20 result();
    21 
    21