Commit ca0251f6 authored by MARCHE Claude's avatar MARCHE Claude

examples from BTS

parent bbb659aa
module Bug
exception A (unit, unit)
let foo (_: unit) : unit =
try
()
with
| A _ -> ()
end
end
\ No newline at end of file
theory Bug
use import map.Map
type t
type p 'a = PTR t
function load (p 'a) :'a
goal bug: forall i.
let p = ((PTR i):(p (map t t))) in
let q = ((PTR i):(p t)) in
(load p)[i] = (load q)
end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment