coq-plugin: type definitions

490f7095 · Jean-Christophe Filliâtre · 694704db · 490f7095
Commit 490f7095 authored Apr 14, 2010 by Jean-Christophe Filliâtre
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/coq-plugin/whytac.ml src/coq-plugin/whytac.ml +1 -1

No files found.
--- a/src/coq-plugin/whytac.ml
+++ b/src/coq-plugin/whytac.ml
@@ -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 =