Commit 490f7095 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

coq-plugin: type definitions

parent 694704db
......@@ -256,7 +256,7 @@ and tr_global_ts env r =
let b = force b in
let (tv, vars), env, t = decomp_type_lambdas env b in
let def = Some (tr_type tv env t) in
Ty.create_tysymbol id vars def
Ty.create_tysymbol id vars None
(* FIXME: is it correct to use None when NotFO? *)
| None ->
let tv =
Supports Markdown
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