author | paulson |
Thu, 06 Jun 1996 16:20:27 +0200 | |
changeset 1790 | 2f3694c50101 |
parent 1789 | aade046ec6d5 |
child 1791 | 6b38717439c6 |
--- a/src/HOL/MiniML/MiniML.thy Thu Jun 06 14:39:44 1996 +0200 +++ b/src/HOL/MiniML/MiniML.thy Thu Jun 06 16:20:27 1996 +0200 @@ -21,7 +21,7 @@ translations "a |- e :: t" == "(a,e,t):has_type" -inductive "has_type" +inductive has_type intrs VarI "[| n < length a |] ==> a |- Var n :: nth n a" AbsI "[| t1#a |- e :: t2 |] ==> a |- Abs e :: t1 -> t2"