Fixed serializer for definitions using equality from Pure.
adbrucker/isabelle-hacks/master This commit looks good Details

This commit is contained in:
Achim D. Brucker 2019-01-24 23:20:56 +00:00
parent 05741ac245
commit faae943ad9
1 changed files with 4 additions and 2 deletions

View File

@ -39,6 +39,7 @@ to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
## [Unreleased] ## [Unreleased]
- Improved representation of IEEE reals - Improved representation of IEEE reals
- Fixed serializer for definitions using equality from Pure
## [1.0.0] - 2019-01-21 ## [1.0.0] - 2019-01-21
- Initial release - Initial release
@ -706,9 +707,10 @@ structure Nano_Json_Serialize_Isar = struct
val master_dir = Resources.master_directory thy val master_dir = Resources.master_directory thy
val term = Thm.concl_of (Global_Theory.get_thm thy (json_const^"_def")) val term = Thm.concl_of (Global_Theory.get_thm thy (json_const^"_def"))
val json_term = case term of val json_term = case term of
_ $ (_ $ json_term) => json_term Const (@{const_name "Pure.eq"}, _) $ _ $ json_term => json_term
| _ $ (_ $ json_term) => json_term
| _ => error ("Term structure not supported: " | _ => error ("Term structure not supported: "
^(Sledgehammer_Util.hackish_string_of_term ctxt term)) ^(Sledgehammer_Util.hackish_string_of_term ctxt term))
val json_string = Nano_Json_Serializer.serialize_term_pretty json_term val json_string = Nano_Json_Serializer.serialize_term_pretty json_term
in in
case filename of case filename of