src/HOL/Prolog/Func.ML
author webertj
Mon Mar 07 19:30:53 2005 +0100 (2005-03-07)
changeset 15584 3478bb4f93ff
parent 14981 e73f8140af78
child 17311 5b1d47d920ce
permissions -rw-r--r--
refute_params: default value itself=1 added (for type classes)
     1 (* Title:    HOL/Prolog/Func.ML
     2     ID:       $Id$
     3     Author:   David von Oheimb (based on a lecture on Lambda Prolog by Nadathur)
     4 *)
     5 
     6 open Func;
     7 
     8 val prog_Func = prog_HOHH @ [eval];
     9 fun pgoal s = (case Goal s of _ => by (prolog_tac prog_Func));
    10 val p = ptac prog_Func 1;
    11 
    12 pgoal "eval ((S (S Z)) + (S Z)) ?X";
    13 
    14 pgoal "eval (app (fix (%fact. abs(%n. cond (n eq Z) (S Z) \
    15 			\(n * (app fact (n - (S Z))))))) (S (S (S Z)))) ?X";
    16 
    17