Add code for #541
Add code for #541

MallabaevAzamat/FStar,hoheinzollern/FStar,hoheinzollern/FStar,YaccConstructor/FStar,YaccConstructor/FStar,A-Manning/FStar,MallabaevAzamat/FStar,FStarLang/FStar,A-Manning/FStar,YaccConstructor/FStar,FStarLang/FStar,hoheinzollern/FStar,hoheinzollern/FStar,YaccConstructor/FStar,MallabaevAzamat/FStar,MallabaevAzamat/FStar,FStarLang/FStar,A-Manning/FStar