investigate bts 20881

f9d6ff78 · MARCHE Claude · 854c219b · f9d6ff78
Commit f9d6ff78 authored Mar 17, 2017 by MARCHE Claude
Hide whitespace changes
Inline Side-by-side

Showing with 24 additions and 0 deletions

examples/bts/20881.why examples/bts/20881.why +24 -0

No files found.
--- a/examples/bts/20881.why
+++ b/examples/bts/20881.why
+
+
+theory OK
+
+type t 'a = A | B (t 'a)
+
+
+goal g : forall x: t 'a. A <> B x
+
+end
+
+
+theory Bug1
+
+type t 'a = A int
+
+function f (t 'a) : 'a
+
+goal g : let p = (A 0: t int) in
+         let q = (A 1: t int) in
+         f p = f q
+
+end
+
 theory Bug
    use import map.Map