lean4-htt/old_tests/tests/lean/vm_string_lt_bug.lean
2018-04-10 12:56:55 -07:00

22 lines
290 B
Text

open native
#eval to_bool ("a" < "b")
#eval to_bool ("b" < "b")
namespace test1
meta def m := rb_map.mk string nat
meta def m' := m.insert "foo" 10
#eval m'.find "foo"
end test1
namespace test2
meta def m := rb_map.mk nat nat
meta def m' := m.insert 3 10
#eval m'.find 3
end test2