diff options
| author | Josh Chen | 2020-07-21 02:16:14 +0200 |
|---|---|---|
| committer | GitHub | 2020-07-21 02:16:14 +0200 |
| commit | dfd241b2d85fc5a4ad4d7ddd64adf0138b05f083 (patch) | |
| tree | b4c4280b1bc4426059ddd184a2258d15d20a0bab /spartan/core/lib.ML | |
| parent | 6aaf4d5b28a5284b3b02fa5c410d2d83a711840b (diff) | |
| parent | 12eed8685674b7d5ff7bc45a44a061e01f99ce5f (diff) | |
Merge pull request #8 from jaycech3n/dev
Merge big diff on dev
Diffstat (limited to '')
| -rw-r--r-- | spartan/core/lib.ML | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/spartan/core/lib.ML b/spartan/core/lib.ML index 615f601..7b93a08 100644 --- a/spartan/core/lib.ML +++ b/spartan/core/lib.ML @@ -7,6 +7,7 @@ val maxint: int list -> int (*Terms*) val is_rigid: term -> bool +val no_vars: term -> bool val dest_eq: term -> term * term val mk_Var: string -> int -> typ -> term val lambda_var: term -> term -> term @@ -50,6 +51,8 @@ val maxint = max (op >) val is_rigid = not o is_Var o head_of +val no_vars = not o exists_subterm is_Var + fun dest_eq (Const (\<^const_name>\<open>Pure.eq\<close>, _) $ t $ def) = (t, def) | dest_eq _ = error "dest_eq" |