diff options
| author | Emilio Jesus Gallego Arias | 2019-03-28 20:54:17 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-03-30 17:12:03 +0100 |
| commit | b2a1329391bd7847085178d2738e62af215e45b5 (patch) | |
| tree | eb9ca3e14ac1a7f0f4e637690884fcfdf450edea /vernac/comProgramFixpoint.ml | |
| parent | 1b3009ea672fd57e13e2d6912a97db51dfe8f13f (diff) | |
[program] Allow evars in type of fixpoints.
This is the right thing to do until we refine the program architecture
a bit to use EConstr.
Closes #9163 .
Diffstat (limited to 'vernac/comProgramFixpoint.ml')
| -rw-r--r-- | vernac/comProgramFixpoint.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/comProgramFixpoint.ml b/vernac/comProgramFixpoint.ml index ad7c65b70c..350b2d2945 100644 --- a/vernac/comProgramFixpoint.ml +++ b/vernac/comProgramFixpoint.ml @@ -232,7 +232,7 @@ let build_wellfounded (recname,pl,n,bl,arityc,body) poly r measure notation = let hook = Lemmas.mk_hook (hook sigma) in (* XXX: Grounding non-ground terms here... bad bad *) let fullcoqc = EConstr.to_constr ~abort_on_undefined_evars:false sigma def in - let fullctyp = EConstr.to_constr sigma typ in + let fullctyp = EConstr.to_constr ~abort_on_undefined_evars:false sigma typ in Obligations.check_evars env sigma; let evars, _, evars_def, evars_typ = Obligations.eterm_obligations env recname sigma 0 fullcoqc fullctyp |